CP/.M MACRO ASSEM 2.0 #001 *.** Cbios For CP/M Ver. 2.2 *** 

TITLE '*** Gbios For CP/M Ver. 2.2 ***' 
001 D = REVNUM EQU 29 



0016 = 
0001 « 

| 0003 * 



CPMREV EQU 
CONGRP EQU 
LSTGRF EQU 



22 

1 

3 



; CBIOS REVISION NUMBER 2 ±9 _ 

; CP/M REVISION NUMBER 2 , 2 

;COSOLE PORT (1 = PI, 2 - P2, 3 » P3) 

; PRINTER PORT (1 = PI, 2 = P2. 3 ** P3) 




***************************************************************** 

* * 
"* THE FOLLOWING EQUATES SET UP THE RELATIONSHIP BETWEEN THE~" ""'"*'. 

* 2D FLOPPIES AND THE HARD DI SK CONTROLLERS . * 



***************************************************************** 



L__ 



00k)l = 



0001 = 
0001 = 



~wmi " = 



7 0000 = 



FIRST EQU 



MAXHD EQU 
MAXFLOP EQU 



1 
1 



= FLOPPIES ARE A,B,C,D DRIVES AND 



HARD DISK ARE E,F,G,H 
1 = HARD DISKS ARE A,B,C,D DRIVES AND 
FLOPP IES ARE E , F , G , H 



SET TO NUMBER OF HARD DISKS 
SET TO NUMBER OF FLOPPIES 



F800 
FC00 
"F800~ 
F803 
F806 
F809 
F80C 



M20 



EQU 



***************************************************************** 

~n : " : : ' * 



* THE NEXT EQUATE WILL SET THE NUMBER OF LOGICAL DISKS ON A 

* PHYSICAL HARD DISK DRIVE. THE USER MUST SET STDLOG TO A 



"*~VAULE GREATER THAN OR EQU ALE TO 2 FOR AN M10 OR 3 FOR AN 

* M20 OR M26. THE REASON FOR THIS IS THAT CP/M CAN NOT 

* ADDRESS MORE THAN 8 MEGABYTES PER LOGICAL DISK AND 



* 

* 
* 



"■ SPLITTING A DISK TO LESS THEN 2 OR 3 PARTS WOULD MAKE 

* PARTITIONS THAT ARE GREATER THAN 8 MEGABYTES IN LENGTH. 
* 



* 

* 
* 



0003~^T~ 

1 t 0001 - 

<# 0014 = 
■ 00T5~"S" 



" ~*~* w*"*"*"*" **if *nr**~* *^ ******** *~if** ***** *"**'* **************************** 
STDLOG EQU ;SET TO TO USE STANDARD LOGICAL DISKS 



LOGDSK EQU 
FUJITSU EQU 
MREV EQU 



3 

1 
20 



; DEFAULT LOGICAL DISKS PER DRIVE 
;HARD DISK TYPE 



BDSPT EQU "21 ; SECTORS PER TRACK 

* ** * ******* ********************** *■*■•■'* * ** * * * ******* * * * * ************ 



* 
* 
* 

- — — — «- 

*. ' * 

***************************************************************** 



* THE FOLLOWING EQUATES RELATE THE MORROW DESIGNS 2D 

* CONTROLLER. IF THE CONTROLLER IS NON STANDARD (0F800 H) 

* ONLX THE ORIGIN EQUATE NEED~"BE~CHSNGED T" ' ~ ~~~~~ 



ORIGIN 
DJRAM 

T5JBO01 
DJCIN 
DJCOUT 

T>JHOME~ 
DJTRK 



EQU 
EQU 

EQU 
EQU 



0F800H 

ORI GIN+40 0H 

"ORIGIN 

ORIGIN+3H 

ORIGIN+6H 



.-DISK JOCKEY 2D RAM ADDRESS 



; DI SK JGCKEY~2IT IN ITIAEl ZAT I ON " 

; DISK JOCKEY 2D CHARACTER INPUT ROUTINE 

;DISK JOCKEY 2D CHARACTER OUTPUT ROUTINE 



"EQU ORIGIN+9H 
EQU ORIGIN+0CH 



;DISK JOCKEY ^DnTRACK ZERO SEEK 
;DISK JOCKEY 2D TRACK SEEK ROUTINE 



< 

x 






CP/M MACRO ASSEM 2.0 



F80F 
F812 
F815 



DJSEC 
DJDMA 
D J READ 



#002 

EQU 
EQU 
EQU 
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ORIGIN+0FH 

ORIGIN+012H 

0RIGIN+15H 



;DISK JOCKEY 2D SET SECTOR ROUTINE 
iDISK JOCKEY 2D SET DMA ADDRESS 
;DISK JOCKEY 2D READ ROUTINE 



F818 
F81B 
F821 
F827 
F82A 
F82 D 
F830 
0008 
FBF8 



DJWRITE 

DJSEL 

DJTSTAT 

D J STAT 

DJERR 

DJDEN 



S EQU 


ORIGIN+18H 


,-DISK 


JOCKEY 


2D 


WRITE ROUTINE 


EQU 


ORIGIN* 1BH 


7 DISK 


JOCKEY 


2D 


SELECT DRIVE ROUTINE 


P EQU 


ORIGIN+21H 


;DISK 


JOCKEY 


2D 


TERMINAL STATUS ROUTINE 



EQU ORIGIN+27H 
EQU ORIGIN+2AH 
EQU ORIGIN+2DH 



rDISK JOCKEY 2D STATUS ROUTINE 
:DISK JOCKEY 2D ERROR, FLASH LED 
rDISK JOCKEY 2D SET DENSITY ROUTINE 



DJSIDE EQU ORIGIN+30H 

DBLSID EQU 8 

IP EQU ORIGIN+3F8H 



fDISK JOCKEY 2D SET SIDE ROUTINE 
r SIDE BIT FROM CONTROLLER 
f START OF I/O REGISTERS 



FBF9 
FBFC 
00D0 



DREG 

CMDREG 

CLRCMD 



EQU 
EQU 
EQU 



IO+l 
IO+4 
0D0H 



** * * * * * ******************* * * * * ** * ***** ** * * * * * * ** ********* * * * * * * ** 



0050 

0050 

0050 
0053 
W52" 
0051 
0051 



"0002 
0001 
0002 



0020 
0040 
0004 



00FB" 

0004 

0200 



~000F~ 
000B 
0005 

-W5WT 
00F7 
00FC 
0000 
0008 
0001 

"0005 



* THE FOLLOWING EQUATES ARE FOR THE DISKUS HARD DISK WANTED. 

* 

***************************************************************** 



* 
* 



HDORG 



IF MAXHD NE 
EQU 50H 



•WANT HARD DISK INCLUDED ? 
;HARD DISK CONTROLLER ORIGIN 



HDSTAT 
HDCNTL 
HDDATA 
liDFUNC " 
HDCMND 
HDRESLT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



HDORG 

HDORG 

HDORG+3 

HDORG+2 

HDORG+1 

HDORG+1 



;HARD DISK STATUS 
;HARD DISK CONTROL 
J H ARD DIS K DA TA 
;HARD DISK FUNCTION" 
jHARD DISK COMMAND 
•HARD DISK RESULT 



RETRY 

TKZERO 

OPDONE 



EQU 
EQU 
EQU 



2 

1 
2 



; RETRY BIT OF RESULT 
; TRACK ZERO BIT OF STATUS 
jOPERACTION DONE BIT OF STATUS 



< 






< 

en 





~~0W4 ="" ~ 


COMPLT 


EQU 


4 


; COMPLETE BIT OF STATUS 






0008 - 


TMOUT 


EQU 


8 


;TIME OUT BIT OF STATUS 






0010 = 


WFAULT 


EQU 


10H 


; WRITE FAULT BIT OF STATUS 





DRVRDY 

INDEX 

PSTEP 



EQU 
EQU 
EQU 



20H 
40H 

4 



; DRIVE READY BIT OF STATUS 
; INDEX BIT OF STATUS 
;STEP BIT OF FUNCTION 



TJ3TEP 
HDRLEN 
SECLEN 



WENABL 
WRESET 
SCENBL 



"EQU" 
EQU 
EQU 
EQU 
EQU 
EQU 



0FBTT 

4 

512 



? STEP BIT MASK OF FUNCTION 
jSECTOR HEADER LENGTH 
jSEGTOR DATA LENGTH 



0FH 
0BH 
5 



"DSKCLK" 

MDIR 

NULL 

ID BUFF" 

ISBUFF 

RSECT 

WSECT" - 



EQU 
EQU 
EQU 
EQU" 
EQU 
EQU 
^QU 
END IF 



1 _ 

0F7H 

JFCH 
0— 

8 
1 

"5 



; WRITE ENABLE 

; WRITE RESET OF FUNCTION 

; CONTROLLER CONTROL 

?DISK CLOCK FOR CONTROL" 

^DIRECTION MASK FOR FUNCTION 

; NULL COMMAND 

; INITIALIZE DATA" COMMAND 

.•INITIALIZE HEADER COMMAND 

jREAD SECTOR COMMAND 



; WRITE SECTOR COMMAND 



0048" 
004F 



•flBKBET" 
GRPSEL 



"EQU" 
EQU 



"4~8H 
MBASE+7 



";BASE ADDRESS OF MULTI i/O OR DECISION T 
; GROUP SELECT PORT 
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0048 

0049 

0049_ 

004A 

004B 

004D 



004E 

0048 
0048 



0080 
0020 
0010 



0020 
0001 
0001 



"0002 
0004 



DLL 

DLM 

IER_ 

CLK 

LCR 

LSR 



MSR 
RBR 
THR 



DLAB 

THRE 

CTS 

DSR 

DR 

WLS0 



WLS1 
STB 



EQU 
EQU 
EQU 



EQU 
EQU 
J2QU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 



EQU 
EQU 



MBASE 

MBASE+1 

MBASE+1 



MBASE+2 

MBASE+3 

MBAS E+5 

MBASE+6 

MBASE 

MBASE 



80H 
20H 
10H 



20H 

1 

1 

2 

4 



DIVISOR (LSB) 
DIVISOR (MSB) 
INTERUPT ENABLE REGISTER 



WB14 PRINTER SELECT PORT 
LINE CONTROL REGISTER 
LINE STATUS REGISTER 



;READ DATA BUFFER 
;TRANMITTER DATA BUFFER 



; DIVISOR LATCH ACCESS BIT 
; STATUS LINE THRE BIT 
; CLEAR TO SEND 



;DATA SET READY 

;LINE STATUS DR BIT 

;WORD LENGTH SELECT BIT 



?WORD LENGTH SELECT BIT 1 FOR 8 BIT WORD 
?STOP BIT COUNT - 2 STOP BITS 



DEFINE'WLTI I/O PORTS ADDRESSES FOR GROUP ZERO 



0000 = 

0049 = 

0049 = 



0048 = 

0049 = 



GZERO 



EQU 



DAISY0 EQU 
DAISY! EQU 

SENSESW EQU 



DAIS 10 EQU 
DAIS II EQU 







MBASE 

MBASE+1 

MBASE+1 



; DAISY INPUT PORTS 
; SENSE SWITCHES 



MBASE 
MBASE+1 



; DEFINE GROUP SELECT BITS 



FOR DECISION I AND MULTI I/O. 
; THESE TWO ARE THE DECISION I PORTS 



0001 = 

0002 = 

0003 = 

0008 ■»■ 
0010 « 



50 EQU 

51 EQU 
SMASK EQU^ 

"BANK EQU 

ENINT EQU 

^ESTOR EQU 

DENABLE EQU 



01H 
02H 
03H 



04H 
08H 
10H 



; GROUP NUMBER (0-3]" 



< 






< 

CO 

i 
m 
> 

D 



20H 



; PRINTER RESTORE ON MUL TI l/0_ 
; DRIVER ENABLE ON MULTI I/O 



***************************************************************** 

* CP/M SYSTEM EQUATES. IF RECONFIGURATION OF THE CP/M SYSTEM * 

* IS BEING DONE, THE CHANGES CAN BE MADE TO THE FOLLOWING * 

* EQUATES . * 

* * 
***************************************************************** 



003E a 

A800 = 


MSIZE 
BIAS 


EQU 
EQU 


62 

(MSIZE-20)* 


1024 


; MEMORY SIZE OF TARGET CP/M 

i MEMORY OFFSET FROM 20K SYSTEM 




CD00 = 
D500 = 
E300 = 


CCP 

BDOS 

BIOS 


EQU 
EQU 
EQU 


2500H+BIAS 

CCP+800H 

CCP+1600H 




? CONSOLE COMMAND PROCESSOR 
?BDOS ADDRESS 
? CBIOS ADDRESS 




3E00 = 
0004 = 
0080 = 


OFFSETC 

CDISK 

BUFF 


EQU 
EQU 
EQU 


2100H-BIOS" 

4 

80H 




rOFFSET FOR SYSGEN 

-ADDRESS OF LAST LOGGED DISK 

-, DEFAULT BUFFER ADDRESS 




0100 £ "" 

0000 = 


" "TFST" " 

INTIOBY 


EQU 
EQU 


100H 






; TRANSIENT MEMORY 
-, INITIAL IOBYTE 
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0003 - 


IOBYTE 


EQU 


3 


0000 = 


WBOT 


EQU 





0005 = 


ENTRY 


EQU 


5 



; IOBYTE LOCATION 

; WARM BOOT JUMP ADDRESS 

;BDOS ENTRY JUMP ADDRESS 



********************************************************* 

* - . .. . --■■-• ••■"■ : * 

* THE FOLLOWING ARE" INTERNAL CBIOS EQUATES. MOST ARE MISC."" ~*~ 

* CONSTANTS. * 



000A = 
000D = 

000A = 
001A = 



*************************************************** ********* *****" 
ACR EQU ' J ' -64 r CARRIAGE RETURN 



"0&W= 



ALF EQU 
RETRIES EQU 
CLEA R EQU 
ANUL "' "EQU 



'M'-64 
10 

" 



7 LINE FEED 

;MAX RETRIES ON DISK I/O BEFORE ERROR 

; CLEAR SCREEN ON AN ADM 3 



;NULL .. , 
***************************************************************** 



* *~ 

* THE JUMP TABLE BELOW MUST REMAIN IN THE SAME ORDER, THE * 

* ROUTINES MAY BE CHANGED, BUT THE FUNCTION EXECUTED MUST BE * 



* THE SAME . 
* 



* 
* 



***************************************************** * * ********** 



E300 



ORG 



BIOS 



; CBIOS STARTING ADDRESS 



"E'3W" C3ATEA "" "JMP" - ~~~CBQOT 

E303 C3FBE3 WBOOTE JMP WBOOT 

E 306 C363E3 CONST JMP CSTTY 

"E309 C33BE3 



E30C C351E3 
E30F_C372E3 
E"3T2 CJ9FET 
E315 C3A2E3 
E318 C346E4 
"E3TB" C3BBE4 - 
E31E C348E4 
E321 C33AE4 



CIN 
COUT 



JMP 
JMP 
JMP 



JMP 
JMP 
JMP 



JMP 
JMP 
JMP 



CIFLSH 
COTTY 
LIST 
"PUNCH 
READER 
HOME 
SETDRV 
SETTRK 
SETSEC 





E324 C340E4 




JMP 


SETDMA 




E327 C3C7E5 




JMP 


READ 




E32A C3C0E5 




JMP 


WRITE 




E32D C38BE3 




JMP 


LISTST 




E330 C34DE4 




JMP 


SECTRAN 




E333 C31BF8 


DJDRV 


JMP 


DJSEL 



COLD BOOT ENTRY POINT 
WARM BOOT ENTRY POINT 
CONSOLE STATUS ROUTINE 



CONSOLE INPUT 
CONSOLE OUTPUT 
LIST DEVICE OUTPUT 



PUNCH DEVICE OUTPUT 
READER DEVICE INPUT 
HOME DRIVE 



SELECT DISK 
SET TRACK 
SET SECTOR 



SET DMA ADDRESS 
READ THE DISK 
WRITE THE DISK 



LIST DEVICE - "STATUS - " 

SECTOR TRANSLATION 

HOOKUP FOR SINGLE.COM PROGRAM 



E336 0600 
E338""0CW 
E33A 00 



DEFCON DW 
DEFLST DW 
GROUP DB 



12 





E33B CD3AE6 
E33E 3A3AE3 
E341 F601 
E343 D34F 



CIFLSH CALL FLUSH 
CITTY LDA GROUP 



"URT 
OUT 



CONGRP 
GRPSEL 



; CONSOLE BAUD RATE 
;PRINTER~BAUD RATE" 
; GROUP BYTE 



;FLUSH DISK BUFFERS ON INPUT 

;GE T GROUP BYTE 

; SELECT CONSOLE " " "~ 



< 

73 



fo 
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E345 DB4D 
E347 E601 



E349 CA45E3 
E34C DB48 
E34E E67F 



E35F 79 
E360 D348 
E362 C9 



CONINl 



IN 
ANI 



JZ 
IN 
ANI 





E350 


C9 




RET 




E351 


3A3AE3 


COTTY 


LDA 


!•.:. 


E354 


F601 




ORI 


f 

f '. .. 


E356 


D34F 




OUT 



MOV 
OUT 
RET 



LSR 
DR 



CONINl 

RBR 

7FH 



GROUP 



CONGRP 
GRPSEL 



E353 


DB4D 


CONOUT1 IN 


LSR 


E35A 


E620 


ANI 


THRE 


E35C 


CA58E3 


JZ 


CONOUT1 



A,C 
THR 



;READ STATUS REGISTER 
;WAIT TILL CHARACTER READ Y 



;READ CHARACTER 
; STRIP PARITY 



; GET GROUP BYTE 



; SELECT CONSOLE 



;READ STATUS 

;WAIT TILL TRANSMITTER BUFFER EMPTY 



'CHARACTER IS IN (C) 

• OUTPUT TO TRANSMITTER BUFFER 



E363 3A3AE3 
E366 F601 



E368 D34F 



CSTTY 



LDA 
ORI 



OUT 



GROUP 
CONGRP 



GRPSEL 



;GET GROUP BYTE 
; SELECT CONSOLE 



E36A DB4D 
E3~6C E601 
E36E C8 
E36F 3EFF 
"ET7I C9 

E372 3A3AE3 



IN 



ANI 

RZ 

MVI 



E375 F603 
E377 D34F 



~ETJT~WAD 
E37B E620 
E37D CA79E3 



E380 DB4E 
E382 E610 
~E384"CAT9E3" 



LIST 



RET 



LDA 



ORI 
OUT 



LL 



IN 

ANI 

JZ 



LSR 



IN 
ANI 



j-z 



DR 

A, 0FFH 



GROUP_ 
LSTGRP 
GRPSEL 



LSR 

THRE 

LL 



MSR 

CTS 

TZT~ 



;READ STATUS REGISTER 



;NO CHARACTTER READY 
.•CHARACTER READY 



;GET GROUP BYTE 



; SELECT LIST DEVICE 



rWAIT TILL TRANSMITTER BUFFER EMPTY 



;WAIT TILL CLEAR TO SEND 



< 






' 7} 

rr 
> 
a 



E387 79 
E388 D34B" 
E38A C9 



MOV 

"OUT" 

RET 



A,C 



THR 



-EJSBT3K3KEJ- 
E38E F603 
E390 D34F 



""T2TSTST LDA" 
ORI 
OUT 



GROUP 

LSTGRP 

GRPSEL 



;GET GROUP BYTE 

; SELECT LIST DEVICE 



E399 E6I0 
E39B C8 



E392 DB4D 
E394 E648 


IN 
ANI 


LSR 
THR 


; CHECK IF TRANSMITTER BUFFER EMPTY 


! E19b C8 

E397 DB4E 


RZ 
IN 


MSR 


. ; : ;RETURN NOT READY ; : 



ANI" 
RZ 



CTS 



; RETURN NOT READY IF CTS IS FALSE 
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E39C 3EFF 
E39E C9 



E39F C30CE3 



E3A2 C309E3 



E3A5 
"E3A8 
E3AB 
E3AD 
E3B0 
E3B3 
E3B6 
E3B9 
E3BC 
E3BF 
E3C0" 
E3C3 
E3C6_ 
E3C9 
E3CA 
E3CJD 
E3CE 
E3D1 
E3D3 
E3D6 
E3D9 
E3DB 
E3DE 
E3E1 
E3E2 

E3E8 
E3E9 
E3_U 
E3EF 
E3F0 
E_FT 
E3F4 



218000 
CD40E4 
3EC3 
320000 



320500 

2103E3 

220100 

2106D5 

220600 

AF 

32T7EE" 

323BE6 

3A0400 

-4jr- 

3AF7E3 
B7_ 

riF^E3 
3E01 
CADBE3 
11FAE3 
3E01 
2108CD 
3207CD" 
47 

CD03E7_ 
3AF7E3 
B7 

3AF8E3 
CAF0E3" 
IF 
IF 
DS00CD 
C303CD 



~E_F7 013 



MVI 
RET 



A, 0FFH 



r PRINTER READY 



PUNCH JMP_ 

READER JMP 



COOT 



_J 



CIN 



***************************************************************** 

* * 

* GOCPM IS THE ENTRY POINT FROM COLD BOOTS, AND WARM BOO TS. IT * 

* INITIALIZES SOME OF THE LOCATIONS IN PAGE 0, AND SETS UP THE * 

* INITIAL DMA ADDRESS (80H) . * 



*TF*~*Tnr**~*** ***************************************************** * 
GOC PM LX I H , BUFF __ ; SET UP INITIAL DMA ADDRESS 



CALL SETDMA 
MVI A, (JMP) 
STA^ WBOT 
STA 
LXI 



INITIALIZE JUMP TO WARM BOOT 



SHLD 



ENTRY 

H,WBOOTE 

WBOT+1 



; INITIALIZE JUMP TO BDOS 
; ADDRESS IN WARM BOOT JUMP 



LXI 
SHLD 
XRA 
STA 
STA 
LDA 
MOV " 
LDA 
ORA 
LXI" 
MVI 
JZ_ 
LXI 
MVI 
CLDCMNDLXI 

STA '■■ 

MOV 

CALL 



; ADDRESS IN BDOS JUMP 

;A <- 

•DISK JOCKEY BUFFER EMPTY 

;SET BUFFER NOT DIRTY FLAG 

rJUMP TO CP/M WITH CURRENTLY SELECTED DISK IN C 



LDA 
ORA 
LDA 

__T ~~ 

RAR 

CLDBOT RAR 
~"JC 
JMP 



H,BDOS+6 

ENTRY+1 

A 

BUFSEC" 

BUFWRTN 

J2DISK 

C/A 
CWFLG 

K_ 

"D/COLDBEG" '" ; BEGINNING OF INITIAL C0.1MAND 
A, COLDEND-COLDBEG+1 ; LENGTH OF COMMAND 

CLDCMND . - 

D,WARMBEG 

A, WARMEND-WARMBEG+1 

H,CCP+8 j COMMAND BUFFER 

CCP+7 

8, A 

MOV LOP 

CWFLG 
A 

AUTOFLG 
"CEDBOT" ~" 



< 


< 


73 - 


■J> 


_* M 


1 T) 


£> M 


~ m 


__ 


> 


1- 


a 



CCP 
CCP+3 



; ENTER CP/M 



;COLD/WARM BOOTFLAG 



CWFLG '" DB 
***************************************************************** 



* THE FOLLOWING BYTE DETERMINES IF AN INITIAL COMMAND IS TO BE * 
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E3F8 00 



* GIVEN TO CP/M ON WARM OR COLD BOOTS. THE VALUE OF THE BYTE IS * 

* USED TO GIVE THE COMMAND TO CP/M: * 

* * 

* "0 "=~NEVER~G I VE~ COMMAND . ~ __—_.—--....-... - - .._ ... . _, 

* ■ 1 = GIVE COMMAND ON COLD BOOTS ONLY. * 

* 2 - GIVE THE COMMAND ON WARM BOOTS ONLY. * 



* 3 = GIVE THE COMMAND ON WARM AND COLD BOOTS. 



***************************************************************** 



AUTOFLG DB 







;AUTO COMMAND FEATURE 



*********** ***** * * * * *"* * ****************************************** 

* * 

* IF THERE IS A COMMAND IN SERTED HERE, IT WILL BE GIVEN IF THE * 

* AUTO FEATURE IS ENABLED 

* FOR EXAMPLE: 
* 

* 
* 



* 

*" 
* 



COLDBEG DB 
COLDEND DB 



" ! MB ASi C MYP ROG ' 




* 
* 
* 

"* WILL~EXECUTE MICllOSO"FT~"BASIC, ANlT^BASTC^iLL "EXECUTE 'THE - " * "' 

* "MYPROG" BASIC PROGRAM. * 

* * 
~*~*~* ************* ***** ***************** *^~**~*~*ir*~*~* * ~***~**~** *inr**ir* **~ 



COLDBEG DB 



"E3P5TW" 
E3FA 00 



;COLD BOOT COMMAND GOES HERE 



COLDEND DB 
WARMBEG DB 
WARMEND DB 




« i 





;WARM BOOT COMMAND GOES HERE 



***************************************************************** 

* * 

* " WBOOT LOADS IN" ALL OF "CP/M" EXCEPT THE CBIOS, THEN INlfi ALI ZES ~* 

* SYSTEM PARAMETERS AS IN COLD BOOT. SEE THE COLD BOOT LOADER * 

* LISTING FOR EXACTLY WHAT HAPPENS DUR ING WA RM A ND COLD B OOTS. * 

* ~ ' *~ 

***************************************************************** 



< 

71 






< 

c-.i 

i 
■ni 
> 
a 



1 


E3FB 3____i 

E3FE 3E01 


WBOOT 


LXI 
MVI 


SP,TPA 
A,l 


.SET UP STACK POINTER 






E400 32F7E3 




STA 


CWFLG 


;SET COLD/WARM BOOT FLAG 





E403 
E404 
E405 
E408 
E4~0T 
E40C 
E40E 
E40"F~ 
E412 
E414 
TT4TT- 



AF 

4F 

2100CB 
E5 

3246 E8" 
3E01 
F5 

"CDTHET 
0E00 
CD37E7 
"FT 



IF 

XRA 

MOV"" 

LXI 

PUSH 



(MAXHD NE 0) AND FIRST ; SUPPLY WARM BOOT FROM HARD DISK ? 
A 

H,CCP-200H ; INITIAL DMA ADDRESS 
H 



E418 El 



STA 
MVI 
PUSH 
~CAXL 
MVI 

______ CALL 

WARMLOD POP 

POP 



HEAD 
A,l 
PSW 
HDDRV" 
C,0 
HDTRK 
"PSW 
H 



.SAVE FIRST SECTOR - 1 



TSELECT DRIVE A 

.HOME THE DRIVE 
";T.E^TORE"~SE"CT0Tr 
; RESTORE DMA ADDRESS 
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E419 
E41A 
E41D 
E41F 
E422 
E423 
E424 
E427 
E428 



E429 
E42C 
E42D 



3C 

322AE8 

F E0C 

CAA5E3 

24 

24 

"22A1E7 

E5 

F5 

01000A 

C5 

CD87E7 



#008 *** Cbios For CP/M Ver. 2.2 *** 



;PAST BDOS ? 



INR 


A 


STA 


HDSECTR 


CPI 


12 


JZ 


GOCPM 


INR 


H 


INR 


H 


SHLD 


HDADD 


PUSH 


H 


PUSH 


PSW 



WARMRD LXI 
WRMREAD PUSH 
CALL 



E430 
E431 
E434 



E435 
E438 
E439 



CI 

D217E4 

05 _ 

C22CE4 

76 

00 



POP 
JNC 
DCR 



JNZ 
HLT 
D B 
END IF 



;YES, ALL DONE 

; UPDATE DMA ADDRESS 



B, RETRIES* 100H+0 ; RETRY COUNTER 

B ; SAVE THE RETRY COUNT 

HDREAD ;READ THE SECTOR 



B 

WARMLOD 

B 



;TEST FOR ERROR 

; UPDATE THE ERROR COUNT 



WRMREAD 







7 KEEP TRYING IF NOT TO MANY ERRORS 

TERROR HALT 

; TRY NOT TO SCREW UP DECISION CPU'S 



*************************************************************** 

-n " ~ ~~~ : ~~ ~~~~ ~~~ ~* 



* SETSEC JUST SAVES THE DESIRED SECTOR TO SEEK TO UNTIL AN 

* ACTUAL READ OR WRITE IS ATTEMPTED. ■■ ■ '. 



_ . ^ 

***************************************************************** 



E4~3A 60" 


SETSEC 


MOV 


H,B 


E43B 69 




MOV 


L,C 


E43C 220FEE 




SHLD 


CPMSEC 


E43F C9 


DONOP 


RET 





;NULL SINGLE.COM HOOKUP FOR NO FLOPPIES 
***************************************************************** 



* SETDMA SAVES THE DMA ADDRESS FOR THE DATA TRANSFER. 

* 



* 
* 

*: 



* * * * ir*~* ** *~* * * * * * * * *"*"*"**"*"* * r + * ************************************* 






E440 60 
~E44T~&9~~ 
E442 221BE6 
E445 C9 



E446 0E00 



SETDMA MOV 



MOV 

SHLD 

RET 



J1' B 
L/C 

CPMDMA 



?HL <- BC 



;CP/M DMA ADDRESS 



***************************************************************** 

* * 

. __ s: - 

* 



^TI0m~T^~TTOaJST^E^~INT0" A SEHK~TO TRACK ZERO • 
* 
***************************************************************** 



HOME 



MVI 



C,0 



; TRACK TO SEEK TO 



********* * -*-*mnr*-* ** *ir**^*^*"**~*^r*ir*^-*~*w* w*it*~*^r**y*'* **•*"»*** jt* * ******" 

* * 

* SETTRK SAVES THE TRACK # TO SEEK TO. NOTHING IS DONE AT THIS * 



*" POINT, EVERYTHING IS DEFFERED UNTIL A READ OR WRITE, 



* 

* 
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*********************************************************** ** **** 



E448 79 



SETTRK MOV 



Aj, C 



; A,_< - _TRACK_ J 



E449 3212EE 
E44C C9 




STA CPMTRK ; CP/M TRACK # 
RET 






******* 
* 

* SECTRj 

* #. 

."* ; 

******* 


********************************************************** 

* 

\N TRANSLATES A LOGICAL SECTOR # INTO A PHYSICAL SECTOR * 






* 

* 

********************************************************** 

■ ■ ' ■ ■ . . ■ -. . .... ....... . . . -.-.--; .. . . 




E44D 3A11EE 


SECTRAN 


IF (MAXHD NE 0) AND (MAXFLOP NE 0) ;BOTH TYPES ? 
LDA CPMDRV ;GET THE DRIVE NUMBER 




E450 FE03 




IF FIRST 

CPI MAXHD*LOGDSK >OVER THE # OF HARD DISKS ? 




E452 DA84E4 




JC TRANHD 

ELSE 

CPI MAXFLOP ;OVER THE # OF FLOPPIES ? 




' ; ..,.:!..,.,. 




JNC TRANHD 

ENDIF 

ENDIF 








IF (MAXHD EQ 0) OR (MAXFLOP EQ 0) ;JUST ONE TYPE ? 






SECTRAN 


EQU ? 
ENDIF 




E455 03 
E456 D5 


TRANFP 


IF MAXFLOP NE ; FLOPPY TRANSLATION 

INX B 

PUSH D ;SAVE TABLE ADDRESS 


< 


£457 C5 
E458 CD9FE5 
E45B 7E 




PUSH B ; SAVE SECTOR # 

CALL GETDPB ;GET DPB ADDRESS INTO HL 

MOV A, M -GET # OF CP/M SECTORS/TRACK 




E45C B7 
E45D IF 
E45E 91 




ORA A ; CLEAR CARY 
RAR ; DIVIDE BY TWO 
SUB C 




E4bF Fi> 
E460 FA6CE4 
E463 Fl 


SIDEA 


PUSH PSW ; SAVE ADJUSTED SECTOR 

JM- ■ ^■■^/.SIDETWO■v^;■^■'■':■-:^ ; ;■.'':^■:...: ; ■ 

POP PSW ; DISCARD ADJUSTED SECTOR 




E4b4 CI 
E465 Dl 
E466 EB 


SIDEONE 


POP B ; RESTORE SECTOR REQUESTED 
POP D ;RESTOR ADDRESS OF XLT TABLE 
XCHG ;HL <- &( TRANSLATION TABLE) 




i E467 m 
E468 6E 




DAD B ?BG = OFFSET INTO TABLE 
MOV L,M ;HL <- PHYSICAL SECTOR 




E469 2600 




MVI H,0 




E46B^ C9~ 
E46C 010F00 


SIDETWO 


RET 

LXI B,15 ; OFFSET TO SIDE BIT 




E46F 09 
E470 7E 
E471 E608 




DAD B 

MOV A,M 

ANI 8 ;TEST FOR DOUBLE SIDED 




E473 CA63E4 
E476 Fl 




JZ SIDEA ; MEDIA IS ONLY SINGLE SIDED 
POP PSW ; RETRIEVE ADJUSTED SECTOR 













L. 
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E477 CI POP 

E478 2F CMA 

E479 3C INR 



*** Cbios For CP/M Ver. 2.2 *** 

B 

A 



;MAKE SECTOR REQUEST POSITIVE 



E47A 4F 


MOV 


C,A 


;MAKE NEW SECTOR THE REQUESTED SECTOR 




i E47B Dl 


POP 


D 






E47C CD66E4 


CALL 


SIDEONE 







E47F 3E80 
E481 B4 
E482 67 



E483 C9 



E484 60 
E485 69 



E486 23 
E487 C9 



MVI 

ORA 

MOV_ 

RET 

ENDIF 



A,80H 

H 

H,A 



;SIDE TWO BIT 

; AND SECTOR 



TRANHD 



IF MAXHD NE 

MOV H,B 

MOV L,C 

INX " H 

RET 

ENDIF 



;HARD DISK TRANSLATION ROUTINE 



***************************************************************** 



^"SETDRV SELECTS THE NEXT DRIVE TO BE USED IN READ/WRITE 

* OPERATIONS. IF THE DRIVE HAS NEVER BEEN SELECTED BEFORE ^ A 
PARAMETER TABLE IS CREATED WHICH CORRECTLY DESCRIBES THE 



DISKETTE CURRENTLY IN THE DRIVE. DISKETTES CAN BE OF FOUR 
DIFFERENT SECTOR SIZES: 

_JL ) 128 BYTES SINGLE DENSITY. 

2T 256 BYTES DOUBLE DENSITY. "". " " " ~~ 

3) 512 BYTES DOUBLE DENSITY, 

4) 1024 BYTES DOUBLE DENSITY. 



* 
* 
* 



* 

* 

* 

* 

* 

* 

* 

*~ * 

***************************************************************** 



* 
* 
* 

* 
* 



< 



'"£458" 79 
E489 3211EE 
E48CFE04 

E491 7B 
E492 E601 
E49"4 C2T7E5 



SETDRV 



E497" 3ATTEE 



E49C DA4AE5 
E49F D603 



MOV 

STA 
CPI 
JNC 
MOV 
AN I 



JNZ 



IF 



ELSE 

CPI 

JNC 

ENDIF 

ENDIF 



;SAVE THE DRIVE # 



A,C 

CPMDRV 

MAXFLOP+C MAXHD* LQG DSK) ? CHECK FOR A VALID DR IVE # 

ZRET """ " '"' ; ILLEGAL DRIVE # 

A,E ;TEST IF DRIVE EVER LOGGED IN BEFORE 

1 



SETDRV1 ;BIT OF E = -> NEVER SELECTED BEFORE 

(MAXHD NE 0) AND (MAXFLOP NE 0) ;BOTH TYPES ? 



LDA 
IF 


CPMDRV 
FIRST 


CPI 

JC 

SUI 


MAXHD*LOGDSK 

DRVHD 

MAXHD*LOGDSK 



;GET THE DRIVE NUMBER 



;OVER THE # OF HARD DISKS ? 



MAXFLOP 
SUBFP 



;OVER THE # OF FLOPPIES ? 



E4A1 4F 



"IF {MAXFLOP NE 0) AND FIRST 
MOV C,A ;SAVE DRIVE # 
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*** Cbios For CP/M Ver. 2.2 *** 



E4A2 
E4A3 
E4A4 



3E00 



A7 



MVI A, 
FLOPFLG EQU $-1 
ANA A 



;HAVE THE FLOPPIES BEEN ACCESSED YET ? 



E4A5 
E4A8 
E4AA 
E4AD 
E4AF 
E4B0 
E4B3 
E4B4 
E4B5 



C2F5E4 

0611 

2100F8 

3EC3 

BE 

C2^0E5^ 

23 

23 

23 



JNZ 
MVI 
LXI 



FLOPOK 

B,17 

H.DJBOOT 



? FLOPPIES HAVN'T BEEN ACCESSED 

7 CHECK IF 2D CONTROLLER IS INSTALLED 



CLOPP 



MVI 
CMP 
JNZ 
INX 
INX 
INX 



A, (JMP) 

M 

ZRET 



H 
H 
H 



E4B6 
E4B7 
E4BA 



05 

C2AFE4 

11D2E4 



DCR 
JNZ 
LXI 



B 

CLOPP 

D,DJINIT 



E4BD 


2TE2FF 


E4C0 


06 IE 


E4C2 


CD03E7 


E4C5 


3EFF 


E4C7 


32F9FB 


E4CA 


3ED0 


E4CC 


32FCFB 


E4CF 


C3F0E4 



LXI H.ORIGIN+7E2H 
MVI B,30 
CALL MOVLOP 



INITIALIZATION SEQUENCE 



LOAD ADDRESS 
BYTE COUNT 



MVI 
STA 
MVI 



STA 
JMP 



A.0FFH 
DREG 

A,CLRCMD 
CMDREG '■; 
DJNEXT 



? START 1791 
;1791 RESET 



E4D2 0000001800DJINIT DB 
E4E2 09FF09FF09 DB 



0, 0, 0, 18H, 0, 0, 8, 0, 7EH, 0, 8, 0, 9, 0FFH, 9, 0FFH 
9, 0FFH, 9, 0FFH, 9, 0, 1, 0, 0, 0, 0, 0, 0, 



E4F0 3E01 
E4F2 32A3E4 



DJNEXT 



MVI 
STA 
END IF 



■A.I- 
FLOPFLG 



?SAVE 2D INITIALIZED FLAG 







IF 


MAXFLOP NE 







E4F5 210100 FLOPOK LXI 


H.l 






E4F8 2213EE 


SHLD 


TRUESEC 






E4FB 3E01 


MVI 


A.l 






E4FD 3212EE 


STA 


CPMTRK 






E500 CDCDE6 


CALL 


FILL 






E503 DA90E5 


JC 


ZRET 






E506 CD27F8 


CALL 


DJSTAT 






E509 E60C 


ANI 


0CH 






E50B F5 


PUSH 


PSW 






E50C IF 


RAR 








E50D 21B8E5 


LXI 


H.XLTS 






EbikJ bF 


mo\t 


E,A 






E511 1600 


MVI 


D,0 






E513 19 


DAD 


D 






E514 E5 


PUSH" 


~H 






E515 CD9FE5 


CALL 


GETDPB 






E518 EB 


XCHG 








E519 Dl 


POP 


D 






E51A 0602 


MVI 


B,2 






E51C CD03E7 


CALL 


MOVLOP 






E5IF~ IT08130 


LXI 


D,8 






E522 19 


DAD 


D 






E523 E5 


PUSH 


H 






Eb24 2A0/F8 


"XHLD 


ORlGIN+7 






E527 23 


INX 


H 





? SELECT SECTOR 1 OF TRACK 1 



7 FLUSH BUFFER AND REFILL 



< 

3 



£ 

M 



< 

V) 

■ i 
m 

5 



7 TEST FOR ERROR RETURN 
7 GET STATUS ON CURRENT DRIVE 
7STRIP OFF UNWANTED BITS 
7USED TO SELECT A DPB 

7 TABLE OF XLT ADDRESSES 



SAVE "POINTER "TO FROPER XLT 
GET DPH POINTER INTO DE 



? NUMBER OF BYTES TO MOVE 
7 MOVE THE_ ADDRESS OF XLT 
70FFSET TO DPB POINTER 
?HL <- &DPH.DPB 



7 GET ADDRESS OF DJ TERMINAL OUT ROUTINE 
7 BUMP TO LOOK AT ADDRESS OF 
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E528 
E529 
E52B 
E52C 

E52_E 
E52F 
E531 
JE534 
E537 
E53A 
E53B 



7E 
EE03 



6F 

26FB 
7E 

E608 

111FE9 

C23AE5 



E53C 
E53D 
E53E 



115FE9 
EB 

Dl 

Fl 
17 
17 



E53F 
E540 
E542 
~E543" 
E544 
E545 



E546 



4F 
0600 
09 
EB 
73 
23 
72 



E547 C377E5 



E54A_ 
"E54D 
E54E 
E551 
~E5"54"~ 
E555 
E556 

"E55? 
E55B 
E55D 

"E551T 
E561 
E563 

~E56~6" 
E567 
E568 
E5W9 
E56C 
E56D 
E55F" 
E571 



CD96E5^ 
79 

324CE8 
CD3AE8 
7E 
3C 

C277E5 
P6FC" " 
D352 
3E05 
B~3~5TZT 
0EEF 
210000 
ZB ~ 
7C 
B5 

CC94E5" 
C8 

DBb0 
E52W~ 
C266E5 



#012 



MOV 
XRI 



MOV 
MVI 
MOV 



AN I 

LXI 
JNZ 

LXI 
SIDEOK XCHG 

POP 



POP 
RAL 

RAL 



MOV 
ENDIF 



SUBFP 



DRVHD 



IF 
JMP 

IF 

"SO I 
ENDIF 
ENDI F 

IF 

CALL 
"MOV" 
STA 
CALL 



MOV 
INR 
JNZ 
"ORI 
OUT 
MVI 



OUT 
MVI 
LXI 



TDELAY 



DCX 

MOV 

ORA 

C"Z 

RZ 

IN 
"AN I 

JNZ 

IF 
"LXI" 

MVI 



*** Cbios For CP/M Ver. 2.2 *** 

UART STATUS LOCATION 

; ADJUST FOR P ROPER REV DJ 



A,M 

3 

L,A 

H, (ORIGIN+300H)/100H 

A,M 



DBLSID 

D.DPB128S 

SIDEOK 



; CHECK DOUBLE SIDED BIT 
;BASE FOR SINGLE SIDED DPB'S 



D,DPB128D 
D 



PSW 



BASE OF DOUBLE SIDED DPB'S 

HL <- DBP BASE, DE <- &DPH.DPB 

RESTORE DE (POINTER INTO DP H) 



OFFSET TO CORRECT DPB 



MOV 


C,A 


MVI 


B,0 


DAD 


B 


XCHG 




MOV 


M,E 


INX 


H 



;PUT DPB ADDRESS IN DPH 



M,D 



"(MAXHD NE 0)" AND"(MAXFLOP NE 0) 

SETDRV1 ;SKIP OVER THE HARD DISK SELECT 

NOT FIRST 



MAXFLOP 



; ADJUST THE DRIVE # 



MAXHD NE 

DIVLOG_ 

A,C 

HDDISK 

DRVPTR 

A, M ~ 

A 

SETDRV1 

NULL 

HDFUNC 

A,SCENBL 

HDCNTL 

C,239 

H,0 

"H 

A,H 
L 
DCRC" ""'" 

HDSTAT _ 
DRVRDY 
TDELAY 
^OT FUJITSU 

H,0 

C, INDEX 



; DIVIDE BY LOGICAL DISKS PER .DRiyE 



< 

7} 






< 

CO 

! it 
m 
> 



; SELECT DRIVE 

; ENABLE THE CONTROLLER 



;WAIT APPROX 2 MINUTES FOR DISK TO READY 



;TEST IF READY YET 



TTIME "ONE REVOLUTION OF THE DRIVE 
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*** Cbios For CP/M Ver. 2.2 *** 



i 



INDX1 



IN 


HDSTAT 


ANA 


C 


MOV 


B*A 


IN 


HDSTAT 


ANA 


C 


CMP 


B 



; SAVE C URRENT INDEX LEVEL IN B 



;LOOP UTIL INDEX LEVEL CH ANGES 



INDX2 



JZ 

INX 

IN 



INDX1 

H 

HDSTAT 



ANA 
CMP 
JNZ 



C 
B 
INDX2 



7 START COUNTING UNTIL INDEX RETURNS TO 
PREVIOUS STATE 



SHLD 
END IF 



SETTLE 



;SAVE THE COUNT FOR TIMEOUT DELAY 



"ES74"CD'29ET 



CALL 
ENDIF 



HDHOME 



E577 
E57A 
E57D 
~E5TE~ 
E57F 
E581 



CD9FE5 
010F00 
09 
TE 
£607 
32CCE5 



SETDRV1 CALL 
LXI 
DAD 



GETDPB 

B,15 

B 



MOV 
ANI 
STA 



E584 
E585 
E586 



7E~ 

IF 

IF 



MOV 
RAR 
RAR 



A,M 
7H 

SECSIZ 
A f M 



;GET ADDRESS OF DPB IN HL 
; OFFSET TO SECTOR SIZE 

;GET "SECTOR JSIZE Z 



E594 0D 
"E593~"C9^ 

E596 0E00 

~E598 D603 

E59A D8 

E59B 0C 

~Eb9C C398E5" 



IF 
DCRC DCR 
VRET" 

DIVLOG MVI 



MAXHD NE 

C 



; CONDITIONAL DECREMENT C ROUTINE 



C,0 



"DIVLOGX SUI 
RC 
INR 

—- JHP~~~ 

ENDIF 



LOGDSK 
C 



DTVLOGir 



1 

\ 


E587 
E588 
E589 


-jj.- ~ ----- 

IF 

E60F 




RAR 
RAR 
ANI 


0FH 








E58B 
E58E 
E58F 


320AEb 

EB 

C9 




STA 

XCHG 

RET 


SECPSEC 


?HL <- DPH 




i 
! : : 


E590 
E593 


210000 
C9 


ZRET 


LXI 
RET 


H,0 


;SELDRV ERROR EXIT 





********* ******Tr********************* **************************** 
* * 

* 

w 



* GETDPB RETURNS HL POINTING T O THE DPB OF THE CURRENTLY 

"* "SELECTED DRIVE, DE POINTING TO DPH. 

* 



********************************************** 



E59F 3A11EE 



GETDPB LDA 



CPMDRV 
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E5A2 


6F 


E5A3 


2600 


E5A5 


29 


E5A6 


29 


E5A7 


29 


E5A8 


29 


E5A9 


11CFE9 


E5AC 


19 


E5AD 


E5 



#014 

MOV 
MVI 
DAD 



*** Cbios For CP/M Ver. 2.2 *■** 

L,A ;FORM OFFSET 

H,0 

H 



DAD 
DAD 
DAD 
LXI 
DAD 
PUSH 



H 
H 
H 





E5AE 


110A00 




E5B1 


19 




E5B2 


7E 



LXI 
DAD 
MOV 



D, DP BASE 
D 

H_ 

~D,10 
D 
A,M 



; BASE OF DPH ' S 

;SAVE ADDRESS OF DPH _ _ 
; OFFSET TO DPB 

;GET LOW BYTE OF DPB ADDRESS 



E5B3 
E5B4 
E5B5 



23 
66 
6F 



INX 
MOV 
MOV 



E5B6 
E5B7 



Dl 
C9 



POP 
RET 



H 

H,M 
L,A_ 
D 



;GET LOW BYTE OF DPB 



***************************************************************** 

* * 

* XLTS IS A TABLE OF AD DRESS THAT PO INT TO EACH OF THE XLT * 

* 



* TABLES FOR EACH SECTOR SIZE. 

* 

***************************************************************** 



E5B8 51E8 

"E51A" ^>CEB~ 

E5BC A1E8 

E5BE DEE8 



XLTS 



IF 
DW 



DW 
DW 
DW 



MAXFLOP NE 

XLT128 

XLT256~ 

XLT512 

XLT124 



;XLT FOR 128 BYTE SECTORS 



;XLT FOR 256 BYTE SECTORS 
•XLT FOR 512 BYTE SECTORS 
?XLT FOR 1024 BYTE SECTORS 



ENDIF 

***************************************************************** 

"*" : " " ' " " ' ' ' — ~~— — ;- - - H""*" 

* WRITE ROUTINE MOVES DATA FROM MEMORY INTO THE BUFFER. IF THE * 

* DESI RED CP/ M SECTOR IS NOT CONTAINED IN THE DISK BUFFER, THE * 
"*" BUFFER "IS FIRST FLUSHED TO THE DISK IF IT HAS EVER BEEN * 

* WRITTEN INTO, THEN A READ IS PERFORMED INTO THE BUFFER TO GET * 

* THE DESIRED SECTOR. ONCE THE CORRECT SECTOR IS IN MEMORY, THE * 



* BUFFER WRITTEN INDICATOR IS SET, SO THE BUFFER WILL BE 

* FLUSHED, THEN THE DATA IS TRANSFERRED INTO THE BUFFER. 



* 

* ' .-■■■-* 

***************************************************************** 



E5C0 79 
"E5C1 3232E6 - 
E5C4 3E01 
E5C6 06 



WRITE MOV 

; — : ~STK" 

MVI 
DB 



A,C 



;SAVE WRITE COMMAND TYPE 



T?RTTTYP 
A,l 
(MVI) OR (B*8) 



SET WRITE COMMAND 

THIS "MVI B" INSTRUCTION CAUSES 



THE FOLLOWING "XRA A"^ TO 
BE SKIPPED OVER. 



-*-** ************ * * *-**if *"*~* _ *"*"*" ** *Tnr*itinrjf *tf* *~* **~* *~*~* * * * *~*~* * * **~* * if * * * * 

* * 

* READ ROUTINE TO BUFFER DATA FROM THE DISK. IF THE SECTOR * 
^"REQUESTED FROM^CPTH^rSTTHTTHE" BUFFER, THEN THE DATA IS "SIMPLY *~ 

* TRANSFERRED FROM THE BUFFER TO THE DESIRED DMA ADDRESS. IF * 
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* THE BUFFER DOES NOT CONTAIN THE DESIRED SECTOR, THE BUFFER IS * 

* FLUSHED TO THE DISK IF IT HAS EVER BEEN WRITTEN INTO, THEN * 

* FILLED WITH THE SECTOR FROM THE DISK THAT CONTAINS THE *_ 

* DESIRED CP/M SECTOR. * 
■*'. ■ '■'* 

* * * * * * * * ********************** ******* ************** ****** ******** 



E5C7 AF 
E5C8 321EE6 



READ 



XRA 

STA 



A 
RDWR 



;SET THE COMMAND TYPE TO READ 
;SAVE COMMAND TYPE 



***************************************************************** 

* : - ''.' ■'■V : '*: ; . 



* REDWRT CALCULATES THE PHYSICAL SECTOR ON THE DISK THAT 

* CONTAINS THE DESIRED CP/M SECTOR, THEN CHECKS IF IT IS THE 

* SECTOR CURRENTLY IN THE BUFFER. IF NO MATCH IS MADE. THE 



* 
* 
* 



* BUFFER IS FLUSHED IF NECESSARY AND THE CORRECT SECTOR READ * 

* FROM THE DISK. * 

■■*.:■..•-... "-*' 



* ** ****** * * * * * * * ************************************************* 



E5CB 0600 



E5CC - 

E5CD 2A0FEE 
E5D0 7C 
E5D1 E680 
E5D3 4F 
"E5WTC 
E5D5 E67F 
E5D7 6.7 



REDWRT MVI 
SECSIZ" EQU 

LHLD 



B,0 



E5D8 2B 

E5D9 05 

_E5DA CAE7E5_ 

E5DD B7 

E5DE 7C 

E5DF IF 

TT5E0 67 

E5E1 7D 

E5E2 IF 



Li__ 



E5E3 
E5E4 

E5E8 
E5E9 



6F 
C3D9E5 

23 

7C 
Bl 



""E5EAT 
E5EB 
E5EE 

~E5FT~" 
E5F4 
E5F6 
E5F7 
E5FA 
E5FB 
E5FC 
E5FD 



wj 

2213EE 
21I1EE 



$-1 



CPMSEC 



J ™E IS MODIFIED T O CO NTAIN THE LOG 2 
OF THE PHYSICAL SECTOR SIZE/ 128 
ON THE CURRENTLY SELECTED DISK. 

;GET THE DESIRED CP/M SECTOR ».. 



MOV 
ANI 
MOV 



MOV 
ANI 
MOV 
" "DCX 
DIVLOOP DCR 
JZ 



A,H 
80H 
C,A 
~A,H 
7FH 
H,A 



;SAVE ONLY THE SIDE BIT 
; REMEMBER THE SIDE 



; FORGET THE SIDE BIT 



H 
B 
DIVDONE 



; TEMPORARY ADJUSTMENT 
; UPDATE REPEAT COUNT 



ORA 
MOV 
RAR 



A 
A,H 



MOV 
MOV 
RAR 



MOV 
JMP 



H,A 
A,L 



L,A 
DIVLOOP 



; DIVIDE THE CP/M SECTOR # BY THE SIZE 



"OETHI 



"DIVDONE INX ~H 

MOV A, H 
ORA C 



; RESTORE THE SIDE BIT 



< 

33 






< 

en 

m 
> 

a 



MOV 

SHLD 
LXI 



TH"5EF" 

0605 

5 

CA05E6" 

1A 

BE 

2 3~ — 

13 



LXI 

MVI 

DTSLOP DCR 

— -JZ 

LDAX 
CMP 

_ iux~ 

INX 



H,A 

TRUESEC 

H,CPMDRV 

D,BUFDRV 

B,5 

B 



i SAVE THE PHYSICAL SECTOR NUMBER 

I POINTER TO DESIRED DRIVE, TRACK, AND SECTOR 



MOVE 

D 

M 

D 



; POINTER TO BUFFER DRIVE, TRACK, AND SECTOR 
; COUNT LOOP 

;TEST IF DONE WIT H COMPARE 

T YES, MATCH. GO MOVE THE DATA 

;GET A BYTE TO COMPARE 

;TEST FOR MATCH 

;BUMP POINTERS TO NEXT DATA ITEM 



CP/M MACRO ASSEM 2.0 #016 *.** Cbios For CP/M Ver . 2.2 *** 
E5FE CAF6E5 JZ DTSLOP ;MATCH, CONTINUE TESTING 

it**************************************************************** 



* * 

* DRIVE, TRACK, AND SECTOR DON'T MATCH, FLUSH THE BUFFER IF * 

* NECESSAR Y AND THEN REFILL. *■ 

*~ " """ "' """ * 

***************************************************************** 



E605 3A0FEE 

E608 3D 

E609 E600 
E60A "*■■■ 



E60B 6F 
E60C 2600 
E60E 29 



~E6T2~Z9~ 
E613 29 
E614 29 



~E5I3TI0FEA~" 

E618 19 

E619 EB 
"E6TA 210000 

E61B = 
E6IW~3EM~~~ 

E61E = 
""E5IP~~K7 
E620 C228E6 
E623 CD01E7 

Eb2fo AF~ 

E627 C9 



MOVE 



LDA 
DCR 



CPMSEC 
A 



;GET THE CP/M SECTOR TO TRANSFER 
; ADJUST TO PROPER SECTOR IN BUFFER 



ANI 
SECPSEC EQU $-1 





E60F 29 


r 


E610 29 


■ 


E611 29 



MOV 


L,A 


MVI 


H,0 


DAD 


H 


DAD 


H 


DAD 


H 


DAD 


H 



DAD 
DAD 
DAD 



H 
H 
H 



LXT 

DAD 
XCHG 



D, BUFFER 
D 



LXI 



CPMDMA EQU 



RDWR 



MVI 



EQU 



H,0 

A, 
$-1 



ANA A 

JNZ INTO 

OUTOF CALL MOVER 

XKS ~A~ ~~ 
RET 



; STRIP OFF HIGH ORDERED BITS 
♦THE IS MODIFIED TO REPRESENT THE # OF 
; CP/M SECTORS PER PHYSICAL SECTORS 
;PUT INTO HL 

?FORM OFFSET INTO BUFFER 



P- 


E601 CDCDE6 
E604 D8 


CALL FILL rFILL THE BUFFER WITH CORRECT PHYSICAL SECTOR 
RC J NO GOOD, RETURN WITH ERROR INDICATION 








***************************************************************** 

* * 

* MOVE HAS BEEN MODIFIED TO CAUSE EITHER A TRANSFER INTO OR OUT * 




\ - 




* THE BUFFER. * 

*■..:■■-:;;■ : '. i'i*- 
********************** * ** ******* * * * * * *..* * ** * * * * ***** *.** **.* * * * * * * ** 


1 



/BEGINNING ADDRESS OF BUFFER 

?FORM BEGINNING ADDRESS OF SECTGR TO TRANSFER 

?DE g ADDRESS IN BUFFER 

;GET DMA ADDRESS, THE IS MODIFIED fj 

; CONTAIN THE DMA ADDRESS 



;THE ZERO GETS MODIFIED TO CONTAIN 

A ZERO IF A READ, OR A 1 IF WRITE 



•TEST WHICH KIND OF OPERATION 
; TRANSFER DATA INTO THE BUFFER 



< 
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E628 EB 
E629 CD01E7 

E^2C~ 3101 ~~ '" 
E62E 323BE6 
E631 3E00 
"E6~J2~^ 
E633 3D 



INTO 



XCHG 
CALL 



MVI 
STA 

MVI 

"WRITTYP EQU" 
DCR 



MOVER 

ATT 

BUFWRTN 
A,0 

A 



;MOVE THE DATA, HL = DESTINATION 
j? DE_ = SOURCE 

;SET BUFFER WRITTEN INTO FLAG 
; CHECK FOR DIRECTORY WRITE 



CP/M MACRO ASSEM 2.0 #017 *** Cbios For CP/M Ver. 2.2 *** 



E634 3E00 
E636 3232E6 
E639 C0 



MVI 
STA 
RNZ 



A,0 

WRITTYP 



?SET NO DIRECTORY WRITE 
7 NO ERROR EXIT 



********************************************************** 

* * 



* FLUSH WRITES THE CONTENTS OF THE BUFFER OUT TO THE DISK IF * 

* IT HAS EVER BEEN WRITTEN INTO. * 

* * 



~*~* It ****** * * * * * * * ***** * * * * * * * * * ** * * ******************************* 






E63A 3E00 



E63B = 
E63C A7 
~E53B"""CB~" 



FLUSH 



MVI 



BUFWRTN EQU 

ANA 

RZ 

IF 



E63E 2116F8 


LXI 


E641 11BCE7 


LXI 


E644 CD10E7 


CALL 



ELSE 
IF 
LXI 
END IF 
IF 
LXI 
ENDIF 
END IF 



A,0 



;THE IS MODIFIED TO REFLECT IF 



$-1 

A 



r THE BUFFER HAS BEEN WRITTEN INTO 
;TEST IF WRITTEN INTO 



; NOT WRITTEN , ALL DONE 
(MAXHD NE 0) AND (MAXFLOP NE 0) 



H,DJWRITE 
D,HDWRITE 
DECIDE 



; WRITE OPERATION FOR DISK JOCKEY 
; WRITE OPERATION FOR HARD DISK 



MAXHD HE f 
H,HDWRITE 



MAXFLOP NE 
H,DJWRITE 



E647 F3 
E6WAF 
E649 323BE6 
E64C 22AEE6 
~Eb4F T350A 
E651 C5 
E652 3A15EE 



E653TPEW 
E657 DA5CE6 
E65A D603 



" ****** * * * * ***** ***** ********************************************* 

* * 

* PREP PREPARES TO READ/WRITE THE DISK. RETRI ES ARE ATTEMPTED. * 
~* UPON ENTRY, "H&L MUST CONTAIN THE READ OR WRITE OPE RATION * 

* ADDRESS . * 

* ■■-.'•*: 



*************** * * * * * ****** * ** * * * ***************************** * * * * 



PREP DI 

XRA^ 

STA 

SHLD 
MVI 

RETRYLP PUSH 
LDA 

— IF 

— IF 
CPI 
JC 
SUI 

"ELSE 

CPI 
JC 

SUI 

ENDIF 



A 

BUFWRTN 

RETRYOP 



7 R ESET IN TERRUPTS 

"•"RESET BUFFER "WRITTEN FLAG 

SET UP THE READ/WRITE OPERATION 



"E", RETRIES 
B 
BUFDRV 



MAXIMUM NUMBER OF RETRIES TO ATTEMPT 

SAVE THE RETRY COUNT 

GET DRIVE NUMBER INVOLVED IN THE OPERATION 



(MAXHD NE 0) AND (MAXFLOP NE 0) 
J?IRST 

MAXHD*LOGDSK 
NOADJST 
MAXHD*LOGDSK 



MAXFLOP 
NOADJST 
"MAXFEOF" 



< 
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#018 



*** Cbios For CP/M Ver. 2.2 *** 



E65C 


4F 


NOADJST MOV 


C, A 


E65D 


2133E3 


LXI 


H,DJDRV 


E660 


1118E7 


LXI 


D,HDDRV 


E663 


CD0CE7 


CALL 


DECIDGO 






-ELSE 








MOV 


C,A 






—IF 


MAXHD NE 






CALL 


HDDRV 



; SELECT DRIVE 



^-ENDIF 
"-IF 
CALL 



E666 3A16EE 
E669 A? 
E66A 4F 



E66B C5 



"E66C 2109F8 
E66F 1129E7 
E67 2 CC0CE7 



^5T5~Cr 



E67~6~ 210CF8 - 
E679 1137E7 
E67C CD0CE7 



MAXFLOP NE 
DJDRV 



; SEL ECT T HE D RIVE 



xENDIF 
-END IF 



LDA 
ANA 
MOV 



PUSH 

IF_ 
LXI ~ 
LXI 
CZ 



ELSE 
IF 

CZ 

END IF 

IF 

CZ 



END IF 
END IF 

T>OP 




BUFTRK 

A 

C,A 



;TEST FOR TRACK ZERO 



B 



(MAXHD NE 0) AND (MAXFLOP NE 0) 



H,DJHOME 
D, HDHOME 
DECIDGO 



MAXHD NE 
HDHOME 



MAXFLOP NE 
DJHOME 



?HOME THE DRIVE IF TRACK 



< 

73 






< 

en 



B ; RESTORE TRACK ¥ 

(MAXHD NE 0) AND (MAXFLOP NE 0) 



H,DJTRK 
D,HDTRK 
DECIDGO 

MAXHD NE 
HDTRK 



MAXFLOP NE 
DJTRK 



?SEEK TO PROPER TRACK 



"E67F 2A17EE" 

E682 7C 

E683 07 
-E684-FT6F1 "" 

E686 4F 



E687 2130F8 



LHLD" 
MOV 
RLC 
~5HI""" 
MOV 



/IF 
LXI 



"BOFSEC 
A,H 

I 
C,A 



GET SECTOR INVOLVED IN OPERATION 
BIT OF A EQUALS SI_DE_#_ 
STRIP" OFF UNNECESSARY BITS 
C <- SIDE # 



CMAXHD NE" 07 AND (MAXFLOP NE~01" 
H,DJSIDE 



CP/M MACRO ASSEM 21.0 #019 *** Cbios For CP/M Ver. 2.2 *** 



E68A 1160E7 
E68D CD0CE7 



E690 2A17EE 



E693 7C 
E694 E67F 
E696 47 



E697~3D 



~W5WS~~. 210FF8 
E69B 1169E7 
E69E CD0CE7 



E5A1 010FEA 



"E53H~2ITZFB" 
E6A7 115BE7 
E6AA CD0CE7 




ylF 
/CALL 
\ENDIF_ 
/IF 

(CALL 
^•ENDIF 



;ndif 



LHLD 



MOV 
ANI 
MOV 



MOV 




NDIF 

;ndif 




D,HDSIDE 
DECIDGO 



SNDIF 

(CALL 
VENUIF" 
SNDIF 



MAXHD NE 
HDSIDE 



MAXFLOP NE 
DJSIDE 



; SELECT THE SIDE 



BUFSEC 



A,H 
7FH 
B,A 



; STRIP OFF SIDE BIT 
;C <- SECTOR # 



C,L 

{MAXHD NE 0) AND (MAXFLOP HE 0) 

H,DJSEC 

D,HDSEC 

DECIDGO 



MAXHD NE 
HDSEC 



MAXFLOP NE 
DJSEC 



; SELECT THE SIDE 



LXI B, BUFFER ; SET THE DMA ADDRESS 
(MAXHD NE 0) AND (MAXFLOP NE 0) 



< 






H , DJDMA 
D,HDDMA 
DECIDGO 



< 



rr. 
> 



MAXHD NE 
HDDMA 



MAXFLOP NE 
DJDMA 



? SELECT THE SIDE 




EbAD CD0000" 
E6AE = 
E6B0 CI 
E5BT~3E00 
E6B3 D0 
E6B4 05 
E6B5 """J7" 
E6B6 3EFF 
E6B8 C8 
"E6B9~7Br 
E6BA FE05 



— — -CALL" 
RETRYOP EQU $-2 

___ POP _B _ 

MVI A~,0 

RNC 

DCR B 



STC 
MVI 
RZ 

"MOV" 
CPI 



A, 0FFH 



a7b " 

RETRIES/2 



roS" ADDRESS ~~ 
; RESTORE THE RETRY COUNTER 



;NO ERROR EXIT STATUS 

; RETURN NO ERROR 

; UPDATE THE RETRY COUNTER 



.-ASSUME RETRY COUNT EXPIRED 

; ERROR RETURN 

; RETURN SAD NEWS 



;RESEEK AFTER HALF RETRIES DONE 






CP/M MACRO ASSEM 2.0 

E6BC C251E6 
E6BF C5 



E6C0 2109F8 
E6C3 11 29E7 
E6C6 CC0CE7 



#020 

JNZ 
PUSH 



*** Cbios For CP/M Ver . 2.2 *** 

RETRYLP ;TRY AGAIN 

B 



^F 
/ LXI 

\ LXI 

"V CZ 
NfiLSE 

_ -'/ IF 

/ fez 
I Nendif 

i_zll 

\ i cz d j home 

\Nbndif 

\endif_ 



(MAXHD ~NE 0) AND (MAXFLOP NE 0) 
H,DJHOME 

D.HDHO ME 

DECIDGO 



MAXHD NE 

HDHOME 

MAXFLOP NE 



;HOME THE DRIVE IF TRACK 



E6C9 CI 
E6CA C351E6 



POP 
JMP 



B 
RETRYLP 



;TRY AGAIN 



***************************************************************** 

* __ * 

"TILL FTLLS'THEHgUFFER" WITH A NEW" SECTOR FROM THE DISK. 

* * 
***************************************************************** 



E6CD CD3AE6 

E6D0_ D8 

E6D1 lillEE 
E6D4 2115EE 
E6D7 060 4_ 
"E6D9 CD03ET 



FILL 



E6DC 
WotSW 
E6E0 
E6E3 

~~E5E~6 
E6E7 
E6E8 
E6E9 
E6EC 
E6EF 

"E6F0 
E6F1 
E6F3 
E&F4 



3A1EE6 

A7 

CAF5E6 

3A32E6_ 

3D 

3D 

C8 

110F00 
19 
~7E 
E603 
3D 
C8 



CALL 
RC 



FLUSH 



LXI 
LXI 
MVI 


D,CPMDRV 
H,BUFDRV 
B,4 


CALL 
LDA 


MOVLOP 
RDWR 


ANA 

JZ 

LDA 


A 

FREAD 

WRITTYP 


DCR 
DCR 
RZ 


A 

A 


CALL 

LXI 

DAD 


GETDPB 

D,15 

D 


MOV 
ANI 
DCR 


A,M 

3 

A 



; FLUSH BUFFER FIRST 

;_CHECK FOR ERROR _ __ 

? UPDATE THE DRIVE , TRACK , AND SECTOR 

; NUMBER OF BYTES TO MOVE 

; COPY THE DATA 



< 

3 






< 
r j> 

i 
m 
> 



RZ 



E6F5 



FREAD 



E6F5 2115F8 

E6F8 1187E7 

"E'6FBT'CffI0ET 



EQU 

/LXI 

/ LXI 

T^CALL 

Velse 

'/IF 

" (LXI "" 
VEND IF 



(MAXHD "NE "0T AND CMAXFLOP NE 0) 
H,DJREAD 

D.HDREAD __ _ 

" DECIDE" 

MAXHD NE 

H,HDREAD 




CP/M MACRO ASSEM 2.0 \ #021 *** Cbios For CP/M Ver. 2.2 *** 

; SELECT THE SIDE 



E6FE C347E6 



( LXI 
^NDIF 



MAXFLOP NE 
H,DJREAD 



2ND IF 
JMP 



PREP 



; SELECT DRIVE, TRACK, AND SECTOR. 
; THEN READ THE BUFFER 1 ._ 



***************************************************************** 

* * 



* MOVER MOVES 128 BYTES OF DATA. SOURCE POINTER IN DE, DEST 

* POINTER IN HL. 

*■-■■-■ 



* 



***************************************************************** 



E7010680 
E703 1A 
E704 77 
E705 13 
E706 23 
E707 05 
E708 C 203E7 
E70B C9 



MOVER MVI 



INX 
DCR 
JNZ 



B,128 



; LENGTH OF TRANSFER 



MOVLOP LDAX D 

MOV M,A 
INX D 



?GET A BTE OF SOURCE 

r MOVE IT 

•BUMP POINTERS 



H 
B 
MOVLOP 



; UPDATE COUNTER 

; CONTINUE MOVING UNTIL DONE 



RET 
* * * * * * * * * * * * * * ************ * * * ** ******* ** * * ** * ** * * * * ***** * * * * * * * * * 



"*" " * 

* ROUTINES TO DECIDE WHICH CONTROLLER TO USE. * 

* * 

"*^#~** - * **"***"*TF*~* *"** * * * * * *"*~*T5 '.*"*"*; W**~ * * * *"* *~*lf *~*Hc*** ****"* ***~* *~*~¥* *"***"*" 



ET0C CDI01T 
E70F E9 



E710 3A15EE 



E713 FE03 
E715 D0 



E716 EB 
E717 C9 



IF 



DECIDGO CALL 
PCHL 
END IF 



/IF 
DECIDE / LDA 



(MAXHD NE 0) AND (MAXFLOP NE 0) 



DECIDE ; WHICH CONTROLLER ? 




(MAXHD NE 0) AND (MAXFLOP NE 0) 

BUFDRV I GET PROPER ROUTINE INTO H&L> BASED 



FIRST 
MAXHD*LOGDSK 



ON CURRENTLY SELECTED DRIVE 



MAXFLOP 



***************************************************************** 

* THE FOLLOWING IS THE EQUIVALENT OF THE LOWEST LEVEL DRIVERS * 

* FOR THE HARD DISK. * 

~w - ~ ~ " " ~ ' ~~ "~ "" ~" *" 

***************************************************************** 



< 






E718 79 



HDDRV 



-IF MAXHD NE "0 
MOV A,C 



? SELECT HARD DISK DRIVE 



CP/M MACRO ASSEM 2.0 #022 

E719 CD96E5 CALL 

E71C 79 MOV 

E71D 324CE8 STA 



E720 F6FC 
E722 D352 
E724 3E0F 



ORI 
OUT 
MVI 



E726 D350 
E728 C9 



OUT 
RET 



*** Cbios For CP/M Ver. 2.2 *** 

-GET THE PHYSICAL DRIVE # 
.•SELECT T HE DRI VE 



DIVLOG 
A, C 
HDDISK 



NULL 
HDFUNC 
A, WENABL 
HDCNTL 



E729 CD3AE8 
E72C 3600 
E72E DB50 



E730 E601 
E732 C8 



HDHOME 



CALL 
MVI 

ANI 
RZ 



DRVPTR 

M,0 

HDSTAT 



TKZERO 



;SET TRACK TO ZERO 
•TEST STATUS 



;AT TRACK ZERO ? 
;YES 



STEPO 



A 



IF NOT FUJITSU 
IN HDSTAT 
ANI TKZERO 



E733 AF 

ETtt~Ctt8E7 




DELAY 
A,l 



; TEST STATUS 
;AT TRACK ZERO ? 



CALL 
JMP 



ACCOK 
STEPO 



;TAKE ONE STEP OUT 



LSE 



V JMP 
J1NDIF 



[F 
DELAY /LXI 
SETTLE EQU 
DELOOp '" DCX 
MOV 
ORA 
"I NX 
\ DCX 
\ JNZ 




Nen 



RET 
DIF 



ACCOK 



NOT FUJITSU 
H,0 

$-2 

H 

A,H 

L 

H 

H 

DELOOP 



;GET DELAY 



;WAIT 20MS 



< 
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< 

CO 

ii 
m 
> 

a 



~E73T _ CD3AEa 
E73A 5E 
E73B 71 



HDTRK 



~E7TF~3F 

E740 DA45E7 

E74 3 2F 
TTM4 3C 

E745 C348E7 



CALL 

MOV 

MOV 



DRVPTR 

E f M 

M,C 



;GET POINTER TO CURRENT TRACK 
;GET CURRENT TRACK 
; UPDATE THE TRACK 



E73C 7B 


MOV 


A,E 


;NEED TO SEEK AT ALL ? 


E73D 91 


SUB 


C 




E73E C8 


RZ 







CMC 

JC 

CMA 



;GET CARRY INTO DIRECTION 



HDTRK2 



INR 



hdtrk 2\ {jmp 
J>\else 



fjMI 
^EL£ 



A 

FUJITSU 

ACCOK 



HDTI 



CALL 



ACCOK 





CP/M MACRO ASSEM 2.BK. #023 



JMP 
-END IF 



*** Cbios For CP/M Ver. 2.2 *** 
DELAY 



E748 
E749 
E74C 



47 

CD45E8 

E6FB 



ACCOK 
SLOOP 



MOV 
CALL 
AN I 



B,A 

BUILD 

NSTEP 



E74E 
E750 

E752 



D352 
F604 
D352 



OUT 
ORI 
OUT 



HDFUNC 

PSTEP 

HDFUNC 



;PREP FOR BUILD 

;GET STEP PULSE LOW 

; OUTPUT LOW STEP LINE 

;SET STEP LINE HIGH 

; OUTPUT HIGH STEP LINE 



E754 05 


DCR 


B 


; UPDATE REPEAT COUNT 




E755 C24CE7 


JNZ 


SLOOP 


;KEEP GOING THE REQUIRED # OF TRACKS 


j 


E758 C361E7 


JMP 


WSDONE 




1 



E75B 60 HDDMA MOV 

E75C 69 _____ MOV 

E73D 22A1E7 SHLD 

E760 = HDSIDE EQU 

E760 C9 RET 



H,B 
L,C 



E761 DB50 WSDONE IN 

E763 E604 AN I 

12T65 CA61E7" JZ 

E768 C9 RET 



HDADD 
? 



HDSTAT 
COMPLT 



WSDONE 



;SAVE THE DMA ADDRESS 



;WAIT FOR SEEK COMPLETE TO FINISH 



E769 79 
E76A CD7EE7 
E76D C615 
ET6F A7 
E770 CC7AE7 
E773 322AE8 
E7T6~~T9~ 
E777 3246E8 
E77A 3E15_ 
E7TC "0D"" 
E77D C9 



HDSEC 



MOV 
CALL 
AD I 



ANA 

CZ 

STA 



MOV 
STA 
GETSPT MVI 
"DCR 
RET 



A,C 

DIVSPT 

HDSPT 



A 

GETSPT 

HDSECTR 

A,C 

HEAD 

A, HDSPT 

C 



< 

7i 






< 

' 3J 

m 
> 



"E77E 0E00 " 
E780 D615 
E782 D8 
T3;78T~W 
E784 C380E7 



DIVSPT MVI 
DIVSPTX SUI 
RC 



INR 
JMP 



C,0 
HDSPT 

C ~TT 
DIVSPTX 



"E7B7" 
E78A 
E78B 

E78E 
E78F 
E791 
E793 
E795 

^T797 
E79A 
E79B 

~ETTC 



CDlJBW 
D8 

AF 

yjsi ' 

2F 

D353 
D3"53~'"" 
3E01 
D351 
CDEBE7 
D8 
AF 
TJ331 



HDREAD 



CALL 

RC 

XRA 



HDP REP 



OUT 
CMA 
OUT 



E79E 0680 



OUT 

MVI 

OUT 

CALL 

RC 

XRA 

OUT "' 

MVI 



HDCMND 



HDDATA 



HDDATA 
A,RSECT 
HDCMND 
PROCESS 

A 

HDCMND 

B,SECLEN/4 



;READ SECTOR COMMAND 



CP/M macro ASSEM 2.0 



#024 



*** Cbios For CP/M Ver . 2.2 **' 



E7A0 


210000 


E7A1 


= 


E7A3 


DB53 



THB6 
E7B7 
E7B8 



HDADD 



E7A5 


DB53 


E7A7 


DB53 


E7A9 


77 


E7AA 


23 


E7AB 


DB53 


E7AD 


77 


E7AE 


23 


E7AF 


DB53 


; E7B1 


77 


E7B2 


23 


E7B3 


DB53 


E7B5 


77 



23 
05 
C2A7E7 



RTLOOP 



LXI 
EQU 

IN 

in" 

IN 

MOV 

INX 

IN 

MOV 

INX 

IN 

MOV 

INX 

IN 

MOV 

INX 

DCR 

JNZ 



H,0 
$-2 
HDDATA 



HDDATA 

HDDATA 

M,A 

H 

HDDATA 

M.A 

H 

HDDATA 

M,A 

H 

HDDATA 

HjA 
H 

B 

RTLOOP 



;MOVE FOUR BYTES 



E7BB C9 



RET 



E7BC 
E7BF 
E7C0 
E7C1 
E7C3" 
E7C6 
E7C8 
~E7C9 
E7CB 
E7CX 
E7CD 
E7CF 
E7D0_ 

eTdi 

E7D3 
E7D4 



CD0^E8 
D8~ 
AF 
D351 



2AA1E7 

0680 

7E 

D353 

23 

7E 

D353" 

23 

7E 

D353 """' 

23 

7E 



E7D5 
E7D7 
E7D8 

E7DC 

E7DE 



D353 

23 

05 

C2C8E7 

3E05 

D351 



E/E0 
E7E3 
E7E4 



^DEBET" 

D8 

3E10 



"E7E5~ 
E7E7 
E7E8 
E7E9 
E7EA 



AB" 

37 

C8 

AF" 

C9 



HDWRITE CALL 
" RC" 
XRA 
OUT 



LHLD 
MVI 
WTLOOP MOV 



OUT 
INX 
MOV 
OUT 
INX 
MOV 
OUT 
INX 
MOV 
OUT 
INX 
DCR 



JNZ 
MVI 
OUT 



HDP REP 

A 
HDCMND 



; PREPARE HEADER 



HDADD 
B,SECLEN/4 

_A,M 

HDDATA 

H 

A,M 

HbDATA 

H 

A,M 

HDDATA 

H 

A,M 

HDDATA 

H 

B 



;MOVE 4 BYTES 



WTLOOP 

A,WSECT 

HDCMND 



"CALTT 

RC 

MVI 
~MfK~ 

STC 

RZ 
"XRA" 

RET 



PROCESS 
A,WFAULT 



< 



< 

G-- 



I ISSUE WRITE SECTOR COMMAND 



E7EBT5B50 
E7ED 47 
E7EEE602 
FT7F0 CAEBE7 
E7F3 3E07 



PROCESS IN 
MOV 
ANI 
-JZ~ 
MVI 



HDSTAT 

B,A 

OPDONE 

PROCESS 

A,DSKCLK 



;WAIT FOR COMMAND TO FINISH 



CP/M macro ASSEM 2.0 



#025 



*** Cbios For CP/M Ver . 2 . 2 *** 



E7F5 
E7F7 
E7F9 



D350 
DB50 
E608 



E7FB 
E7FC 
E7FP 
E7FF 

E801 
E802 



37 

C0 

DB51 

E602 

37 

C0 



E803 

E804 



AF 
C9 



OUT 

IN 

ANI 



STC 

RNZ 

IN 

ANI 

STC 

RNZ 



HDCNTL 
HDSTAT 
TMOUT 



HDRB SLT 
RETRY 



XRA 

RET 



; TIMED OUT ? 



;ANY RETRIES ? 



E805 
E807 
E809 



E80A 
E80B 
E80D 



DB50 

E620 

37 

C0" ' 

3E08 

D351 



HDPREP 



IN 

ANI 

STC_ 

RNZ 

MVI 

OUT 



HDSTAT 
DRVRDY 



A,ISBUFF 
HDCMND 



E80F 
E812 
E814 
E816 
E819 
E81B 



CD45E8 

F60C 

D352 

3A46E8" 

D353 

CD3AE8 



CALL 
OR I 
OUT 
LDA " 
OUT 
CALL 



E81E 
E81F 
E821 
E822 
E824 
E827 



7E 

D353 

A7 

0680" 

CA29E8 

0600 



MOV 

OUT 

ANA 

MVI 

JZ 

MVI 



E829 
E82A 
E82B 



E82D 

E82E 

E830 

ES3? 

E834 

E836 

E83B" 

E839 



3E00 

D353 
T8"~ 

D353 

3E07 
"D3"5U 

3E0F 

D350 
- A -p— — 

C9 



ZKEY MVI 

HDSECTR EQU 

OUT 



MOV 
OUT 
MVI 



OUT 

MVI 

OUT 

XRA" 

RET 



BUILD 

0CH 

HDFUNC 

HEAD 

HDDATA 

DRVPTR 



A,M 
HDDATA 
A 

"B, 801 
ZKEY 
B,0 



y INITIALIZE POINTER 



;FORM HEAD BYTE 



;FORM TRACK BYTE 



A,0 

$-1 

HDDATA 

A,B ~" 

HDDATA 

A^DSKCLK 

"HDCNTL 

A,WENABL 

HDCNTL 

"A 



;FORM SECTOR BYTE 



< 

73 



"0 



< 



"ES31T"2A4CE8~ 
E83D EB 
E83E 1600 
EH40r2T5-0E8- 
E843 19 
E844 C9 



DRVPTR LHLD 
XCHG 
MVI 



LXI 

DAD 
RET 



HDDISK 



D,0 



H, DRIVES 
D 



E845 3E00 
E846 = 

E847~T7 

E848 17 
£849 17 

"E84A T7 

E84B F600 



BUILD 
HEAD 



MVI 
EQU 

"KRC"' 
RAL 
RAL 

~RAIT 
ORI 



A,0 
$-1 
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E84C = 
E84D EEF0 
E84F C9 



HDDISK EQU $-1 
XRI 0F0H 
RET 



( 


E850 = 


DRIVES EQU 
REPT 


MAXHD 




■ ' ■ '■;■ : : 




E850+FF 


DB 

ENDM 

DB 


0FFH 
0FFH 






i 




ENDIF 
***************************************************************** 










* 


* 







* XLT TABLES (SECTOR SKEW TABLES) FOR CP/M 2.0. THESE TABLES * 

* DEFINE THE SECTOR TRANSLATION THAT OCCURS WH EN MAPPING CP/M * 



* SECTORS TO PHYSICAL SECTORS ON THE DISK. THERE IS ONE SKEW' * 

* TABLE FOR EACH OF THE POSSIBLE SECTOR SIZES, CURRENTLY THE * 

* TABLES ARE LOCATED ON TRACK SECTORS 6 AND 8. THEY ARE * 



* LOADED INTO MEMORY IN THE CBIOS RAM BY THE COLD BOOT ROUTINE. * 

* * 
***************************************************************** 



E851 00 



XLT 128 



•IF 
DB 



MAXFLOP NE 




E852 01070D1319 
E857 050B1117 
E85B 03090F15 
~E"S5F""0"20B0ET41A 
E864 060C1218 
E868 040A1016 



DB 

DB 

DB 

DB" 

DB 

DB 



1,7,13,19,25 
5,11,17,23 

3,9,15,21 

2,8,14,20,26 

6,12,18,24 

4,10,16,22 



E86C 00 XLT256 DB 
E86D 0102131425 DB 



E873 0304I5T6TT 
E879 0506171829 
E87F 0708191A2B 



DB 
DB 
DB 



E885 090A1B1C2D 
E88B 0B0C1D1E2F 
E891 0D0E1F2031 
189 7" 0F 1 02 1 22 3 3 ~ 
E89D 11122324 





1, 2,19,20,37,38 
3,4,21,22,39,40 
5, 6, 2 3, 24, 41, 42 
7,8,25,26,43,44 



< 






DB 
DB 
_DB 
DB 
DB 



'"EBS1T 00~~ "XLT512 DB" 

E8A2 0102030411 DB 

E8AA 2122232431 DB 

ESBZ~ 5060 7 081 b "~~ DB" 

E8BA 2526272835 DB 

E8C2 090A0B0C19 DB 

TIHCA"" Z9~2A2B~2C39 DB~ 

E8D2 0D0E0F101D DB 

E8DA 2D2E2F30 DB 

E8DE 00 XLT124 DB 

E8DF 0102030405 DB^ 

ESETTraiAlBrClD ' D3 

E8EF 3132333435 DB 



9,10,27,28,45,46 
11,12,29,30,47,48 
\1' 14,31,32,49,50 
15,16,33,34,51,52 
17,18,35,36 





1,2,3,4,17,18,19,20 

33,34,35,36,49,50,51,52 



3757T7872I72^~,"¥3724" 
37,38,39,40,53,54,55,56 
9,10,11,12,25,26,27,28 



41,42,43,44,57,58,59,60 
13,14,15,16,29,30,31,32 
45,46,47,48 


1,2,3,4,5,6,7,8 



25,26,27,28,29,30,31,32 
49,50,51,52,53,54,55,56 



< 



> 
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E8F7 090A0B0C0D 
E8FF 2122232425 
E907 393A3B3C3D 



DB 
DB 
DB 



E90F 1112131415 
E917 292A2B2C2D 



DB 
DB 



9,10,11,12,13,14,15,16 
33,34,35,36,37,38,39,40 
57. 58 , 59 f 60. 61. 62. 63. 64 
17 , 18 , 19, 20 , 21,22, 23 ,24 
41,42,43,44,45,46,47,48 



it**************************************************************** 

* * 

* EACH OF THE FOLLOWING TABLES DESCRIBES A DISKETTE WITH THE * 



* SPECIFIED CHARACTERISTICS. 
***************************************************************** 



* 
* 



***************************************************************** 
* * 



"^"THE FOLLOWING" DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND SINGLE SIDED. * 

* '■■••■■•■■■.•••* ' 



~*~*~S * * *Tf **'*"** *'*** ************************************************* 



E91F 
E921 
E922 
E923 



1A00 
153 
07 

00 



~E9~Z4~ 
E926 
E928 



F200 
3F00 
C0 



T£9Z9~ 
E92A 

E92C 

"E9ZE 



W5~ 
1000 
0200 
151""' 



DPB128 S DW 
DB 
DB 
DB 



26 



;CP/M SECTORS/TRACK 



3 
7 





; BSH 
jBLM 
;EXM 



DW 
DW 
DB 



DB 
DW 
DW 



DB 



242 
63 

0C0H 



W 
16 
2 



1H 



;DSM 
;DRM 
;AL0 



;AL1 
?CKS 
?OFF 



;16*U#CPM SECTORS/ PHYSICAL SECTOR) -1) + 
;LOG2(#BYTES PER SECTOR/128) 4- 1 + 
?8 IF DOUBLE SIDED. 



< 






***************************************************************** 



"*" THE FOLLOWING DPB DEFINES A DISKETTE FOR 256 BYTE SECTORS, 
* DOUBLE DENSITY, AND SINGLE SIDED. 



* 
* 

* * 

-*•*-* ****** *-*-*wwieic **-** * * * *-*-3r*-***ir*Tnr* * * * * * * * * * * * *~#* ***** **-*"* * * * * *ir*~ 



E92F 
E931 
E932 
E933 

E934 
E936 
E938 

TT9~3~9~ 
E93A 
E93C 

"E93TT 



3400 



04^ 
0F 
00 
P20BT 

7F00 
C0 

m 

2000 
0200 
T2 



DPB256S DW 
DB~ 
DB 
DB 



DW 
DW 
DB 
DB 
DW 
DW 



52 

~4"~ 
15 





; CP/M SECTORS/TRACK 



15T~ 
127 
0C0H 





32 

2 
"TT2H" 



;BSH 
;BLM 
;EXM 



;DSM 
;DRM 
; AL0 



;AL1 
rCKS 
• OFF 

";T6"*TdCPM SECTORS/ PHYSICAL SECTOR") 
; LOG2 ( #BYTES PER SECTOR/ 128 ) + 1 + 
;8 IF DOUBLE SIDED. 



-Xj-qp 



***************************************************************** 
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* ■■'.''■■..* 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 






1 


* * 
********************************************************** 






E93F 3C00 
E941 04 
E942 0F 


DPB512S DW 60 ;CP/M SECTORS/TRACK 
DB 4 ; BSH 
DB 15 ;BLM 






r E943 00 

E944 1801 
E946 7F00 


DB ;EXM 
DW 280 ;DSM 
DW 127 jDRM 






E948 C0 
E949 00 
E94A 2000 


DB 0C0H ;AL0 
DB ;AL1 
DW 32 ;CKS 






E94C 0200 
E94E 33 


DW 2 ;OFF 

DB 33H ;16*((#CPM SECTORS/PHYSICAL SECTOR) 

; LOG2 ( #BYTES PER SECTOR/ 128) + 1 + 


-1) + 






;8 IF DOUBLE SIDED. 
***************************************************************** 






| ■:■■'■ 


* * 

* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, * 

* DOUBLE DENSITY, AND SINGLE SIDED. * 








* * 
***************************************************************** 






E94F 4000 
E951 04 
i E952 0F 


DP1024S DW 64 fCP/M SECTORS/TRACK 
DB 4 ; BSH 
DB 15 ;BLM 






E953 00 
E954 2B01 
E956 7F00 


DB ;EXM 
DW 299 ;DSM 
DW 127 ;DRM 




< 


E958 C0 
i E959 00 
i E95A 2000 


DB 0C0H ?AL0 
DB jALl 
DW 32 ?CKS 






E9SC 0200 
E95E 74 


DW 2 ;OFF 

DB 74H ;16*((#CPM SECTORS/PHYSICAL SECTOR) 

;LOG2(#BYTES PER SECTOR/128) + 1 + 


-1) + 




■ : 


; 8 IF DOUBLE SIDED . 
***************************************************************** 








* * 

* THE FOLLOWING DPB DEFINES A DISKETTE FOR 128 BYTE SECTORS, * 

* SINGLE DENSITY, AND DOUBLE SIDED. * 






1 


''■'*. ...'*. 
***************************************************************** 


■ '■'.'' . . .'"' ::" " : '" : : ' : : : " 




E95F 3400 
E961 04 
E962 0F 


DPB128D DW b2 ;CP/M SECTORS/TRACK 
DB 4 ; BSH 
DB 15 ;BLM 






E963 0i 
E964 F200 
E966 7F00 


DB 1 ;EXM 
DW 242 ;DSM 
DW 127 ;DRM 






E9fo8 C0 
E969 00 


DB 0C0H ;AL0 
DB ;AL1 






i 
i 

l .. ..: _._ _ 
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E96A 2000 
E96C 0200 
E96E 09 



DW 


32 


DW 


2 


DB 


9H 



;CKS 
;OFF 



**************************************** 

■*-' ' ; ■ ."■■ * 

* THE FOLLOWING DPB DEFINES A~DISKETTE AS 256 ^YTE^SECTORS"/ " ~*~ 

* DOUBLE DENSITY, AND DOUBLE SIDED. * 

* * 



***************************************************************** 



k 



E96F 6800 



E971 04 
E972 0F 
E973 00 



E974 E60X 
E976 FF00 
E978 F0 



E979 00 
E97A 4000 
E97C 0200 



E97E1A 



DPB256D DW 

"DB 

DB 

DB 



DW 
DW 
DB 
DB 
DW 
DW 



104 



4 
15 





. Cp/M SECTORS/TRACK 



;BSH 
;BLM 
;EXM 



486 
255 

F0H 
" 
64 
2 



;DSM 
JDRM 
?AL0 



;AL1 
;CKS 
;OFF 



DB 



1AH 



******************* ** ******* * * ** * * * * * * * * * ************ * -*■* * * ** * * * * * 
* THE FOLLOWING DPB DEFINES A DISKETTE AS 512 BYTE SECTORS, 



* 
* 
* 

***************************************************************** 



* DOUBLE DENSITY, AND DOUBLE SIDED. 

~* : ; 



~~E97F"TH00" 
E981 04 
E982 0F 

~EW3~W~ ~ 
E984 3102 
E986 FF00 

"~E9W~F0 
E989 00 
E98A 4000 
E98C 0Z00" 
E98E 3B 



DPB512D DW 


120 


DB 


4 


DB 


15 


DB 





DW 


561 


DW 


255 


DB 


0F0H 


DB 





DW 


64 


"BIT 


2 



;CP/M SECTORS/TRACK 

;BSH 

rBLM 

;EXM :."'" 

jDSM 

?DRM 

;AL0 

;AL1 

;CKS 



;OFF 



< 

73 






DB 



3BH 



-**r* ft**************************-*********************************** 

* * 

* 

* * 
***************************************************************** 



* THE FOLLOWING DPB DEFINES A DISKETTE AS 1024 BYTE SECTORS, 

-*~ixwbi^t3ensity;~1!^ ~ ""~ 



E98F 8000 
E991 04 
E9¥2 ~0F~~~~ 
E993 00 
E994 5702 
"E9W FF00 
E998 F0 



DP1024D DW 
DB 



DB 
DB 
DW 



DW" 
DB 



128 
4 

T5 


599 
255 
0F0H 



;CP/M SECTORS/TRACK 
;BSH 



?BLM 
? EXM 
;DSM 



;DRM 
;AL0 
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E999 00 
E99A 4000 
E99C 0200 



E99E 7C 



DB 





DW 


64 


DW 


2 



;AL1 
;CKS 
; OFF 



DB 7GH 
-END IF 



************** * * * * * * *** ****************************************** 

* * 

* THE FOLLOWING DPB ' S ARE FOR THE STANDARD FORMAT TO BE * 



"*" COMPATABLE WITH OLDER VERSIONS OF THE CBIOS. * 

* * 

**************************************************** * * *********** 



E99F 

E9A1 

E9~aT 

E9A3 

E9A4 



A002 

05 



IF 
01 
DF07 



E9A6 
E9 AS 
E9A9 



W0T~ 
FF 



E9AA' 

E9AC 

E9AE 



E9AF 
"E9B1" 
E9B2 
E9B3 



0000 
0100 
33 



A002 
05 
IF 
01 



IF 
IF 



DPBHD1 



IF 
DW 
DB 
DB 
DB 
DW 



DW 
DB 
DB 

DW" 

DW 

DB 



DPBHD2 



E9B4 


DF07 


E9B6 


FF01 


E9B8 


FF 


E9B9 


FF 


E9BA 


0000 


E9BC 


6200 


"""E9BE" 


"3"3" 



DW 
DB 
DB 
DB 
DW 
DW 
DB 
DB 
DW 
DW 
~BB" 



STDLOG EQ 
MAXHD NE 



;USE STANDARD FORMAT 



M20 NE 

672 

5 



31 

1 

2015 



511 

0FFH 

0FFH 




1 
33H 



672 



5 
31 

1 



2015 

511 

0FFH 



0FFH 


98 
33TT~ 



E9BF A002 DPBHD3 DW 
E9C1 05 DB 


672 

5 


E9C2 IF 
E9C3 01 
E9C4 0404 


DB 

DB 
DW 


~3T 
1 
1028 


E9C6 FF01 " 
E9C8 FF 
E9C9 FF 


DW 
DB 
DB 


511 

0FFH 

0FFH 


E9CA 0000 
E9CC C300 
E9CE 33 


~D"W 
DW 
DB 


0" 

195 

33H 



rCP/M 
rBSH 



SECTORS/TRACK 



•BLM 
:EXM 
iDSM 



fDRM 
rAL0 
rALl 



:CKS 
;OFF 
:16*( 



ILOG2 
r8 IF 
;CP/M 



( l?PM SECTORS/ PHYS I CAL_SECTOR ) 
ttBYTES PER SECTOR7T28) + X + 

DOUBLE SIDED. 

SECTORS/ TRACK _ 



-1) + 



;BSH 
rBLM 
;EXM 
tDSM 
;DRM 
rAL0 



< 



£ 

F3 



< 



> 
a 



;AL1 
;CKS 
;OFF 

TtFT 
? LQG2 
?8 IF 

;CP/M 
J_BSH_ 
; BLM 
;EXM 
;DSM 



OCPM "SECTORS /PHYSICAL 

( tBYTES PER SECTOR/128 ) + 

DOU BLE SID ED. _____ 

SECTORS/TRACK 



-rr + 



1 + 



;DRM 
;AL0 
jALl 
"•CKS" 
;OFF 
;16*( 

";LOG2 
;8 IF 



( #CPM SE CTORS/PHYSICAL SECTOR) -I ) + 
OFE7TES "PER SECTOR/r28T"+ 1 + " 
DOUBLE SIDED. 
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ENDIF 
END IF 

ENDIF 



****************************************************** 

* * 



* THE FOLLOWING DPB ' S ARE USED WHEN THE USER SELECTES THE * 

* NUMBER OF LOGICAL DRIVES. THESE MACROS DIVIDE EVENLY THE * 

* SPACE PER LOGICAL DRIVE WHERE THE STANDARD FORMAT TRIES * 



* TO CREATE THE LEAST AMOUNT OF LOGICAL DRIVES WITH THE 

* MOST SPACE PER LOGICAL DRIVE. 
* 



* 
* 
* 



********** *"*"** ***** * * ******************************************** 



IF 



STDLOG NE 



MDPBHD/ MACRO L,D 
DPBHD^L DW SECPT 



DB 
DB 
DB 



BSH 
BLM 
EXM 



LDSK NE 
(TOTBLS/LOGDSK} 



(TOTBLS/LOGDSK ) - 1 




\ 



DW 
DB 
"ENDM 



( TRACKS/ LOGDSK) * & D+ 1 
SLOG 



/IF 



MAXHD NE 



IF 

SECPT 
TOTBLS 
"TRACKS 
ENDIF 






M20 NE 
EQU 672 
EQU 5124 



; RESERVED CPM TRACK 



EQU 



244 



^J 



< 






__J 



"BSTT" 

BLM 

EXM 
TJRM" ~ 

AL0 

AL1 

SLOG 



EQU 
EQU 
EQU 
"EQU" 
EQU 
EQU 



EQU 
EQU 



5 

31 

1 
3ri — 

0FFH 
0FFH 

'"" 
33H 



LDSK "SET 
\' REPT 

\\ DPBDRV SET 
"\"\" """REPT 
\ \ MDPBHD 



MAXHD 




STDLOG 

%LDSK, %DPBDRV 



■\ 
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LDSK SET 
DPBDRV SET 

ENDM 

ENDM 
ENDIF 
END IF 



LDSK+1 
DPBDRV+1 



***************************************************************** 
* * 



* CP/M DISK PARAMETER HEADERS, UNITIALIZED. 
■ * 
***************************************************************** 



* 

* 



IF 
HEADER MACRO 



DW 
DW 
DW 
DW 
DW 
DW 



STDLOG EQ 

ND ,DPB 

~q ... - " 

0,0^0 
DIRBUF 



DPB 

CSV&ND 

ALV&ND 



j TRANSLATION TABLE FILLED IN LATER 

rSCRATCH 

; DIRECTORY BUFFER 



;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 



ENDM 



ELSE 



HEADER MACRO 
DW 



ND,DPB,DPNO 




DW 

DW 

DW 

DW 

DW 

ENDM 

ENDIF 



0,0,0 

DIRBUF 

DPB&DPNO 



CSV&ND 
ALV&ND 



; TRANSLATION TABLE FILLED IN LATER 



; SCRATCH 

t DIRECTORY BUFFER 

;DPB FILLED IN LATER 



; DIRECTORY CHECK VECTOR 
.•ALLOCATION VECTOR 



< 
x 



*» 

M 



E9CF 



0000 # 



DP BASE EQU 



DN 



"W 



DN 



DN 



E9CF+0000 

"E9D1 +0000000000" 
E9D7+19EE 
E9D9+9FE9 

E9DB+9SEF 

E9DD+99EE 



f 



■4F— 
SET 



STDLOG EQ flV - 



'FIRST'* 1 -" 1 



REPT 
HEADER 



MAXHD 
%DN,DPBHD1 



SET" ~~DN+T~ 
HEADER %DN,DPBHD2 
SET DN+1 

HEADER %DN,DPBHD3 



f HEAI 
\ SET 
V ^B ND 1 



i ! 



«DIF 
ENDM 
DW 

DW 
DW 

DW 



rfi 



DN+1 





T3707#~" 
DIRBUF 
DPBHD1 

"CSV13 
ALV0 



; GENERATE HARD DISK DPH ' S FOLLOWED 
j BY FLOPPY DPH' S 



; TRANS LATI ON TABLE FILLED IN LATER 
T3^RAT~Cir~ 
; DIRECTORY BUFFER 
;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR" 

; ALLOCATION VECTOR 
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E9DF+0000 DW 

E9E1+0000000000 DW 
E9E7+19EE DW 

E9E9+AFE9 " DW 

E9EB+91F0 DW 

E9ED+95EF _ ________ DW 

E9EF+0000" 
E9F1+0000000000 

E9F7+ 19EE 

E9F9+BFE9 
E9FB+12F1 
E9FD+91F0 



*** Cbios For CP/M Ver. 2.2 *** 



DW 
DW 
DW 



DW 
DW 
DW 





0,0,0 
DIRBUF 
DPBHD2 
CSV1 
__I_/1_ 


0,0,0 
DIR BU F 
DPBHD3 
CSV2 
ALV2 



DN 



E9FF+0000 

BA01+0000000000 

EA07+19EE " 

EA09+0000 

EA0B+5DF1 

E"A0b+l2Fl" 



REPT 
HEADER 
SET 
"ENDM 
DW 
DW 



MAXFLOP 

%DN,0 

DN+1 



DN 

DN 
DN 

DN 



DW 

DW 

DW 

"DW 

ELSE ^ 
REPT 
HEADER" 
SET 
ENDM 
"REPT 
HEADER 
SET_ 
HEADER 
SET 
/ __ S 



'■ (HEADER 
! I SET 
^END J E F 





0,0,0 
"DIRBUF 

CSV3 




ALV3 

MAXFLOP 

%DN,0~~ 

DN+1 



MAXHD"" 

%DN,DPBHD1 
_____ 

%DN,DPBHD2 

DN+1 
-M20 NE T3 

%DN,bPBHD3 

DN+1 



; TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

; DIRECTORY BUFFER 

;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

7 ALLOCATION VECTOR 



TRANSLATION TABLE FILLED IN LATER 

; SCRATCH 

lDI_RECTORY BUFFER 

;DPB FILLED IN LATER 

; DIRECTORY CHECK VECTOR 

; ALLOCATION VECTOR 



? c /r 



U o 



; ^- ^ O^/ 7 # 



<C0AC 



; TRANSLATION TABLE FILLED IN LATER 

? SCR ATCH 

; DIRECTORY BUFFER 
;DPB FILLED IN LATER 
; DIRECTORY CHECK VECTOR 
TaLLOCAT ION" VECTOR '" 

; GENERATE FLOPPY DPH' S FOLLO WED BY 
"HARD DISK DPH'S 



U£ 7 L /£ IB do do <T"p Ml A 



A/\ 



< 



_ 



DN 



DN 



.IF 

/IF 




DN 



STDLOG NE 
FIRST 



SET MAXFLOP 

REPT MAXHD 

REPT STDLOG_ ; GENERATE HA RD DISKDPHVS FOLLOWED 

"HEADER %"Dn7dPBHD,¥IDN-MAXFLOP1? BY FLOPPY DPH'S " 

SET DN+1 
ENDM 



ENDM 

SET 

REPT 





MAXFLOP 
"HEADER S'D'S',' 0,0 
\ SET DN+1 
\ \ ENDM 



; FLOPPIES ALWAYS START AT ZERO 



\ ELSE 



; GENERATE FLOPPIES BEFORE HARD DISK 
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EA0F - 



DN 



DN 



DN 



DN 



SET 
I REPT 




MAXFLOP 



'77 HEADER %DN,0,0 
! SET DN+1 



ENDM 
SET 
REPT 
! REPT 



MAXFLOP 

MAXHD 

STDLOG 



\ \ HEADER %DN,DPBHD, % ( DN-MAXFLOP ) 

SET DN+1 

ENDM ".. . :...... . . / ■': ^ 

TV ENDM 



\"ENDIF 
Ss £NDIF 



BUFFER EQU 



************************************************************* 

* * 

* SIGNON MES SAGE OU TPUT DU RING COLD BOOT. _*_ 

* ~ ■ . * 

***************************************************************** 



EA0F 
EA11 
EA17 
~EA~Z6~" 
EA27 
EA28 



801 A PROMPT 

0A0D0A0D0A 

4D6F72726F 

32 

4B2043502F 





EA2F 32 
EA30 2E 
EA31 32 




EA3E 322E 
EA40 39 



EA4T 2E" 

EA42 32 

EA43 30 
~EK44""0X0D' " 

EA46 466F7220 

EA4A 6120446973 
"EA5C" 2T3H516E6420 

EA61 6120 

EA63 46756A6974 

EA~6F 6861/Z64Z0" 

EA78 2E 

EA79 0A0D 
"ES7B '" 4^6563~6973~ 

EA85 2061732063 

EA90 2E 

EA91 0AFD 

EA93 00 



DB 

DB 

DB_ 

DB 

DB 

DB 

DB 

DB 

DB 
..„„. 

DB 
DB 
DB 
DB 
DB 



80H, CLEAR 

ACR , ALF , ACR , ALF , ACR , ALF 

' Morrow Desig ns _'_ 

r T +MSI ZE/10 

•0'+(MSIZE MOD 10) 

*K CP/M ' 



; CLEAN BUFFER AND SCREEN 



DB 
DB 
DB 



DB 
DB 
DB 



DB 
DB 
DB 



DB 
DB 
DB 



DB 
DB 



CPMREV/10+'0' 

• 

(CPMREV MOD 10)+ ' 0' 
' , Cbios rev ' 
REVNUM/10+ , 0*, ' . • 
REVNUM MOD 10+' 0' 



TCP7M MEMORY S IZE " 
;CP/M VERSION NUMBER 



MREV/l0+'0' 

MREV MOD 10±1 _! 
ACR, ALF 
•For ' 

'a P i sk Jockey 2D/B ..' 

' anil r 

'a ' 

' Fuji tsu M20 ' 

Tiard disk* ~~ 
■ i 

ACR, ALF 

1 Decision 1 * 

' as console' 



ACR, ALF 




? CBIOS REVISION NUMBER 



< 

3D 



< 

CO 
I 
33 

m 
> 

a 



;END OF MESSAGE 



ir* mrw* ****************************** *~*Tnr* * * * *~*"*-*~*~* *********** *~*~*~*~ 
* * 
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* UTILITY ROUTINE TO OUTPUT THE MESSAGE POINTED AT BY H&L, 

* TERMINATED WITH A NULL. 
* 



* 
~* * * * * * * *********************************** *~*^**^*^*****~** * ****'***" 



EA94 7E 



EA95 23 
EA96 B7 
EA97 C8 



EA98 E5 
EA99 4F 
EA9A CD0CE3 



EA9D El 
EA9E C394EA 



MESSAGE MOV A, M^ 

INX H" 

ORA A 
RZ 



PUSH 

MOV 

GALL 



POP 

JMP 



H 

C,A 

COUT 



H 
MESSAGE 



.♦GET A CHARACTER OF THE MESSAGE 



;BUMP TEXT POINTER 
;TEST FOR END 
; RETURN IF DONE 



;SAVE POINTER TO TEXT 
; OUTPUT CHARACTER IN C 
; OUTPUT THE CHARACTER 



; RESTORE THE POINTER 

; CONTINUE UNTIL NULL REACHED 



***************************************************************** 

■■■*..':■ ■ "*■■■ 

* C BOOT IS THE COLD BOOT LOADER. ALL OF CP/M HAS BEEN LOADED IN * 
"*~WHEN CONTROL IS PASSED HERE. * 

* * 

***************************************************************** 



EAA1 310001 



CBOOT 



LXI 



SP.TPA 



?SET UP STACK 



EAA4 AF 
EAA5 32F7E3 
EAA8 323AE3 



XRA 
STA 

STA 



A 

CWFLG 

GROUP 



7 CLEAR COLD BOOT FLAG 

; CLEAR GROUP SELECT BYTE 



_EAAB 2100FC. 
EAAE "1100F8 
EAB1 0633 
EAB3 CD03E7 



EAB6 3E00 
EABB" T20T00 



EABB CDE0EA 



IF MAXFLOP HE ; IF 2D/B IS THERE THEN MAKE RAM COPY 
LXI H,DJRAM r OF THE JUMP TABLE. 



LXI 
MVI 
CALL 



D, ORIGIN 

B,33H 

MOVLOP 



;SIZE OF JUMP TABLE 
?COPY TABLE 



ENDIF 

MVI A,INTIOBY 



STA 
CALL 



IOBYTE 
TINIT 



.•INITIALIZE THE TERMINAL 



< 



fo 



< 

0) 

! i 
m 

> 



EABE CD0CEB 



CALL 



LINIT 



.•INITIALIZE THE LIST DEVICE 



"EAC1"2TT3FEA" 
EAC4 CD94EA 
EAC7 AF 
EAC8~3211EE~ 
EACB 320400 



LXI 
CALL 
XRA 
"STA 
STA 



H, PROMPT 

MESSAGE 

A 



~CPMDR\T 
CDISK 



;PREP FOR SENDING SIGNON MESSAGE 
;SEND THE PROMPT 
.•SELECT DISK A 



EACE 32A3E4 

ESDI" "2T03E3 
EAD4 2201E3 
EAD7 C3A5E3 



IF 

STA 

ENDIF 

LXT" 

SHLD 

JMP 



(MAXFLOP NE 0J AND FIRST 
FLOPFLG 



H7BlOS+3~ 

BIOS+1 

GOCPM 



"? PATCH COLD BOOT TO WARM CODE 



**************************** * * *********************************** 
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* TERMINAL INITILIZATION ROUTINE. THIS ROUTINE READS THE SENSE * 

* SW ITCH ON THE WB -14 AND SETS THE SPEED ACCORDI NGLY. ^___ 

r ..__. i -. - . - .. . . ^ 

EADA 1B 7B3F3137TV950 D B LBH, 7BH. 3FH. ' 17 1 '; SEND 'ESC ( ? 1 7 1 ' TO TELEVIDEO 950 



EAE0 21DAEA 
EAE3 CD94EA 



EAE6 3A3AE3 
EAE9 F601 



EAEB D34F 



EAED DB48 



HAEF DB48 
EAF1 AF 
EAF2 D34D 



EAF4 - D3~49~ 



EAF6 2A36E3 



EAF9 EB 



TINIT 



LXI 
CALL 



H,TV950 
MESSAGE 



LDA 
ORI 



GROUP 
CONGRP 



OUT 



IN 



IN 

XRA 

OUT 



OUT 



LHLD 



GRPSEL 



RBR 



RBR 

A 

LSR 



IER 



DEFCON 



;SET TELEVIDEO 950 TO 19.2KB 



;GET GROUP BYTE 

; SELECT CONSOLE DEVIC E 



; CLEAR RECIEVER BUFFERS 



; CLEAR STATUS 



;SET NO INTERRUPTS 



;GET DEFAULT BAUD RATE 




jut dU 7~j> i )S&- 






TaJ^ ujAiT<L 



XCHG 



EAFA 3E87 



MVI 



A,DLAB+WLS1+WLS0+STB 



; ENABLE DIVISOR ACCESS LATCH 



l__ 



EAFC D34B 
EAFE 7A 
EAFF D349 



~EB0I~7B 
EB02 D348 
EB04 3 E07 
EB06 D34B 

EB08 AF 

EB0B C9 



EB0C 
EB0F 
EB11 



3A3AE3 

F603 

D34F 



EB13 
EB15 
EB17 



~EBTA~ 
EB1B 
EB1D 



3E80 

D34B 

2A38E3 

TC" 

D349 

7D 



EB1E 
EB20 
EB22 
EB24" 
EB26 
EB27 
~EBZ9~ 



D348 
3E07 
D34B 



"DB4B™ 

AF 

D349 
~C9"^~"~ 



EB2A 0FF00 
EB2D 



OUT 
MOV 
OUT 



MOV 
OUT 
MVI 



DONE 



LINIT 



OUT 
XRA 



OUT 
R|T 

LDA 
ORI 
OUT 



LCR 

A,D 
DLM 



;SET THE BAUD RATE IN (DE) 
;SET UPPER DIVISOR 



A»E 

DLL ;SET LOWER DIVISOR 

A,WLS1+WLS0+STB 



LCR 

A_ 
LSR 



; CLEAR STATUS REGISTER 



GROUP 

LSTGRP 

GRPSEL 



;GET GROUP BYTE 

; SELECT LIST DEVICE 



MVI 
OUT 
LHLD 



MOV 
OUT 
MOV 
-OUT 
MVI 
OUT 



A, DLAB 
LCR 
DBFLST 
A,H 
DLM 
A,L 

T3EE ~~" ~ 
A, STB+WLS0+WLS 1 
LCR 



; ACCESS DIVISOR LATCH 

;GET LST: BAUD RATE DIVISOR 



;SET UPPER BAUD RATE 



IN 

XRA 

OUT 



RBR 

A 

IER 



; CLEAR INPUT BUFFER 
;NO INTERUPTS 



RET 
DB 



0,0FFH,0 



DS 



512-($-BUFFER) ;MAXIMUM SIZE BUFFER FOR 512 BYTE SECTORS 



< 

3) 



£ 
M 



< 

in 

• in 
m 
> 
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*** Cbios For CP/M Ver. 2.2 



*** 



EC0F 



IF 
DS 



MAXFLOP NE 
_512_ .'ADDITIONAL SPACE FOR FLOPP IES IK SECTORS 



END IF 
***************************************************************** 



* * 

* CBIOS RAM LOCATIONS THAT DON'T NEED INITIALIZATION. * 

* * 

r ****************** *** * ** ** ** ********** **"* * * * * * **"**"** * * * * *"**"** * * * * " 

EE0F 0000 CPMSEC DW 0__ ;CP/M SECTOR # _______ 

EE11 00 CPMDRV DB " ;CP/M DRIVE # " " " 

EE12 00 CPMTRK DB ;CP/M TRACK # 

EE 13 000 ___________ ;DISK JOCKEY SECTOR THAT CONTAINS CP/M SECTOR 

■" " " EE15 m '" BUFDRV DB ". ? DRIVE THAT BUFFER BELONGS TO 

EE16 00 BUFTRK DB ;TRACK THAT BUFFER BELONGS TO 

! EE17 0000 BUFSEC DW ; SECTOR THAT BUFFER BELONGS TO 



EE19 



0000 # 



DIRBUF DS 



128 



.•DIRECTORY BUFFER 



ALLOC MACRO 
ALV&ND DS 

CSV&ND DS 

ENDM 



DN 



SET 



ND,AL,CS 

AL 

CS 
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EE99 + 
EF95 + 
EF95+ 
F091 + 
F091+ 
F112 + 



#038 



*** Cbios For CP/M Ver. 2.2 *** 




< 






< 



> 

a 



FT9TT 



END 
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*** 



E748 
F091 
D500 



EA0F 
EAA1 
E33Ej 
E4AF 

0004 
E351 



ACCOK 000A ACR 
ALV2 F112 ALV3 

BDQS A800 BIAS 

BUFFER' " EE17 BUFSEC 
CBOOT CD00 CCP 
CITTY E3F0 CLDBOT 



000D 
0000 
E300 



ALF 

ANUL 

BIOS 



EE99 
E3F8 
EE15 



ALV0 

AUTOFLG 

BUFDRV 



EF95 
0004 
0080 



ALV1 
BANK 
BUFF 



EE0F 
F112 
0049 



CLOPP 

COMPLT 

CO TTY 

CPMSEC 

CSV2 

DAISI1 



00 D0 CLRCMD 
0001 CONGRP 
E30C COUT 



EE16 
0004 
_E3DB 
FBFC 
E345 
E61B 



BUFTRK 

CDISK 

CLDCMND 

CMDREG 

CONIN1 

CPMDMA 



E63B 
E33B 
00 1A 



BUFWRTN 

CIFLSH 

CLEAR 



E845 
E309 
004A 



BUILD 

CIN 

CLK 



E3F9 
E358 
EE11 



COLDBEG 
CONOUT1 
CPMDRV 



E3F9 
E306 
0016 



COLDEND 

CONST 

CPMREV 



EE12 CPMTRK 
F15D CSV3 
0048 DAISY0 



E363 
0010 
0049 



CSTTY 

CTS 

DAISY! 



EF95 
E3F7 

0008 



CSV0 

CWFLG 

DBLSID 



F091 
0048 
E594 



CSV! 

DAISI0 

DCRC 



E710 
EE19 
E77E 



DECIDE 
DIRBUF 
DIVSPT 



E70C DECIDGO 
E5E7 DIVDONE 
E780 DIVSPTX 



E336 
E596 
F800 



DEFCON 
DIVLOG 
D J BOOT 



E338 
E598 
F803 



DEFLST 

DIVLOGX 

DJCIN 



0020 
E5D9 
F806 



DENABLE 
DIVLOOP 
DJCOUT 



F82D 
E4D2 
F81B 



DJDEN 

DJINIT 

DJSEL 



F812 DJDMA 
E4F0 DJNEXT 
F830 DJSIDE 



F818 
E43F 
E96F 
"E99F 
E850 
0020 



DJWRITE 

DONOP 

DPB256D 



0080 DLAB 
E98F DP1024D 
E92F DPB256S 



E333 
FC00 
F827 
0048 
E94F 
E97F 



DJDRV 
D^FRAM 
DJSTAT 



F82A 
F8I5 
F80C 



DJERR 

DJREAD 

DJTRK 



F809 
F80F 
F821 



DJMOME 

DJSEC 

DJTSTAT 



DLL 

DP1024S 

DPB512D 



DPBHD1 E9AF DPBHD2 E9BF DPBHD3 
DRIVES E54A DRVHD E83A DRVPTR 
DSR E5F6 DTSLOP 0008 ENINT 



0049 
E95F 
E93F 
FBF9 
0020 
0005 



DLM 

DPB128D 

DPB512S 



EB08 
E91F 
E9CF 



DONE 

DPB128S 

DPBASE 



DREG 

DRVRDY 

ENTRY 



0001 
0007 
E6CD 



DR 

DSKCLK 

FILL 



0001 

0001 

004F 
-005T 

E729 
0004 

'003ST 

E446 

E628 



FIRST 

FUJITSU 

GRPSEL 

HDDATAT" 

HDHOME 

HDRLEN 

HDSTAT 

HOME 

INTO 



E4A3 FLOPFLG 
E59F GETDPB 
0000 GZERO 



E4F5 
E77A 
E7A1 



FLOPOK 
GETSPT 

HDADD 



~ES~4C~ 
0050 
£769 



HDDISK 

HDORG 

HDSEC 



"E717" 
0000 
FBF8 



HDTRK 

IDBUFF 

10 



"EB0C 
004D 
0048 

00FB 
E623 



'"ET39F" 
E5CB 
E6AE 



"0002 
E44D 
E43A 

"E4FCT 
E566 
0008 
EADA 
E303 
0001 
"ET42CT 
E851 
E590 



LINIT 
LSR 
MBASE 
140VL0P ~ 
NSTEP 
OUTOF 

punch: 

REDWRT 
RETRYOP 

"SI 

SECTRAN 

SETSEC 
"STDETWCT 

TDELAY 

TMOUT 

TV950 

WBOOTE 

WLS0 
1«®"READ" 

XLT128 

ZRET 



~ETTT 
0003 
00F7 



LIST 

LSTGRP 

MDIR 



0014 MREV - 
00FC NULL 
E647 PREP 

" ~0048 RBR 
0010 RESTOR 
00 ID REVNUM 
0005 SCENBE" 
0049 SENSESW 
E448 SETTRK 
E7~4C~SI70DP 
0048 THR 

0100 TPA 

"E3FA WARMBEG 
E3FB WBOOT 
0002 WLS1_ 

"" E76T WSDONE 
E86C XLT256 



E75B 

E805 

E82A 
E745- 

0049 
0003 

E38B 
0001 

EA94 
003E 
3E00 
E7EB 

000A 
0001 

15TSW 
E440 
E463 
000T 
0020 

_E455 
E3FA" 
0000 
000 B 

~0015~ 
E8A1 



HDDMA 

HDPREP 

HDSECTR 



E63A 
E3A5 
0051 
E7i8 
E787 
E760 



FLUSH 

GOCPM 

HDCMND_ 

HDDRV" 

HDREAD 

HDSIDE 



E6F5 
E33A 
0050 



FREAD 
GROUP 
HDCNTL 



0052 
0051 
0015 



HDFUNC 

HDRESLT 

HDSPT 



HDTRK2 

IER 

IOBYTE 

LiSTST "' 

M20 

MESSAGE 

MSIZE 

OFFSETC 

PROCESS 

"RDWB[ 

RETRIES 

RSECT 



E7BC 
0040 
0008 
E379 
0001 
E605 



HDWRITE 

INDEX 

ISBUFF 

LL 

MAXFLOP 

MOVE 



E846 
0000 
004B 



0003 
0001 
E701 



HEAD 

INTIOBY 

LCR_ 

LOGDSK " 

MAXHD 

MOVER 



004E 
0002 
EA0F 



MSR 

OPDONE 

PROMPT 



"EJKT 
0002 
E7A7 



READER 

RETRY 

RTLOOP 



SECLEN 
SETDMA 
SIDE A 
^M£STC~ 
THRE 
TRANFP 



E60A 
E488 
E53A 



WARMEND 

WBOT 

WRESET 



'0004" 
EAE0 

JE484 
E417 
000F 
E5C0 



SECPSEC 

SETDRV 

SIDEOK 

STB 

TINIT 

TRANHD 

WARMLOD' 

WENABL 

WRITE 



E65C 

F800 

0004 

TE5C7" 

E651 

0001 

E5CC 

E577 

E466 



NOADJST 

ORIGIN 

PSTEP 



READ 
RETRYLP 

S0 



SECSIZ 

SETDRV1 

SIDEONE 



"0000" 
0001 
EE13_ 
E429 
0010 
E632 



STDLOG 

TKZERO 

TRU ESEC 

WARMRD 

WFAULT 

WRITTYP 



WSECT 
XLT512 



E7C8 
E5B8 



WTLOOP 
XLTS 



E8DE 
E829 



XLT124 
ZKEY 



< 



^ 

M 



< 

CO 







